automatische signatur
09.12.2007 17:18:51
marco
ich habe im excel ein programm geschrieben, was emails erzeugt.
nun möchte ich gern wissen, ob man auf diesem weg automatisch eine signatur einfügen kann?
grüße
marco
hier mein code:
Sub MailVersenden()
Dim outl As Object
Dim Mail As Object
Dim d As String
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = ""
Mail.Body = "Hallo," & vbLf & "" & vbLf & _
"" & _
vbLf & "" & vbLf & _
Range("c43").Value & " -" & Range("c44").Value & " Stk." & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"" & vbLf & _
"Grüße" & vbLf & "" & vbLf & _
Range("C2").Value & vbLf & _
"" & vbLf
Mail.To = "" & Range("A3").Value
Mail.CC = "" & Range("A4").Value
Mail.Display
Set outl = Nothing
Set Mail = Nothing
End Sub
Anzeige