Outlook-Signatur anhängen
31.12.2007 07:46:00
Wolfgang
der untenstehende Code wurde mir aus diesem Form zur Verfügung gestellt. Da nun verschiedene User mit der Arbeitsmappe arbeiten, wäre schön, wenn der E-Mail die jeweilige Signatur des Users automatisch angehängt werden könnte. Unter Recherche habe ich nachgesehen und war der Meinung, dass .GetInspector dafür dienlich sein könnte. Es tut sich aber leider nichts. Was müßte ich noch verändern? - Danke für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub Senden(AWS As String)
Dim Nachricht As Object, OutApp As Object
Dim empfänger As String
Dim Kopie As String
Dim Blindkopie As String
Blindkopie = TextBox6.Text
Kopie = TextBox5.Text
empfänger = TextBox1.Text
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.GetInspector
.To = empfänger
.cc = Kopie
.bcc = Blindkopie
.Subject = TextBox2.Text
.body = TextBox3.Text
.Attachments.Add AWS
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Unload Me
End Sub