Link aus Excel auslesen und in Outlook einfügen
12.02.2020 17:01:17
Chris
ich habe folgendes Makro gefunden und würde es gerne an meine Bedürfnisse anpassen.
Das Makro erzeugt aus der Excel Datei heraus eine Email. Die Adressen, den Betreff und den Mailtext übernimmt er aus Zellen in der Excel-Datei.
Leider wird dann am Schluss die Datei als Anhang eingefügt was ich nicht möchte. Mein Anliegen ist es aus einer Zelle in der Datei einen Hyperlink zu kopieren und in den Mailtext mit einzufügen. Im Internet habe ich zwar verschieden Makros gefunden die aber alle nicht das gewünschte Ergebnis brachten. Ich denke das Problem liegt darin das ".body" nur Text ausliest. Wenn ich das Makro starte erscheinen die Vorgabetexte aber die Stelle die den Link auslesen sollte wird nicht angezeigt! Mit html.body habe ich das auch schon probiert - auch ohne erfolgt!
Die Befehlszeile ".Attachments.Add Sheets("dok53").Range("O95").Value" wird nicht benötigt, ich habe diesen nur noch drin weil ich den Link aus "O95" nicht da rein bekomme.
Das Makro!
Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Range("U101").Text
.CC = Range("U102").Text
.Subject = Range("U103").Text
.HTMLBody = Range("U104").Text
.Attachments.Add Sheets("dok53").Range("O95").Value
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend _
manuell vom User!
End With
End Sub
MfG Chris