Markierung in Outlook übertragen und versenden
29.10.2008 17:05:33
Steffi
Ich habe ein Makro zum Emailversand einer gewissen Range in Excel.
Hier ein Auszug:
...
Selection.Copy
With Nachricht
.Subject = "Betreff"
ClpObj.GetFromClipboard
.Body = ClpObj.GetFormat(1)
.To = emailadresse
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue("0:00:05"))
Next emailadresse
...
Die Range die in die Email eingefügt wird beinhaltet nicht das Format, welches ich in Excel nutze.
Es wird durch den Befehl
.Body = ClpObj.GetFormat(1)
nur der Text übernommen. (Zuvor definiere ich: Dim ClpObj As DataObject)
mit welchen Befehl kann ich mein schönes Format aus Excel mit in Outlook nehmen?
Kann mir jemand helfen? Vielen Dank schon mal!!
Liebe Grüße
Steffi