lange ist es her, dass ich Euch gebraucht habe. Dank Euch, denn Ihr habt schon sehr viel helfen können ;-)
Nun habe ich wieder eine etwas komplizierte Frage, die Excel und Outlook verbindet.
Mit folgendem Code schreibe ich eine E-Mail:
Private Sub CommandButton_Mail_VP_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = abc@def.de
.Subject = "Betreffzeile
strTxt = ""
strTxt = strTxt & "Freitext"
strTxt = strTxt & "Mit freundlichen Grüßen"
strTxt = strTxt & "Vorname Nachname"
strTxt = strTxt & "Adresse"
strTxt = strTxt & "Telefon: "
strTxt = strTxt & "Telefax: "
strTxt = strTxt & "Diese E-Mail enthält vertrauliche und/oder rechtlich geschützte _
Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser Mail ist nicht gestattet." & "
End With
End Sub
Weil ich mehrere Buttons habe, die verschiedene E-Mails generieren, möchte ich den Code aufteilen. Das was immer gleich ist, ist die Verabschliedung. Diese möchte ich gern in eine "PrivateFunktion Verabschiedung" auslagern. Nun habe ich schon so lange dran rumgespielt, aber es klappt leider nicht. Könnt Ihr mir hier helfen?Danke.
Viele Grüße
Marco