Mail ohne Signatur :-(
06.01.2009 15:14:00
Ralf
Hab mir ein Makro gebastelt um eine Mail aus Excel zu schreiben. Funktioniert soweit auch.
Leider nur wird meine standardmäßige Signatur nicht eingefügt, was die Sache sehr unschön macht. Hat jemand eine Idee wie ich meine Signatur aktivieren kann.
Das ist der derzeitige Code:
Sub Email()
Dim OutApp As Object, Mail As Object
Dim i As Integer
Dim Nachricht
Dim Email As String
Dim AP As String
Dim kalk As String
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.createItem(0)
Email = Worksheets("kalkulation").Range("h4").Value
AP = Worksheets("kalkulation").Range("d2").Value
kalk = Worksheets("kalkulation").Range("a3").Value
With Nachricht
.To = Email
'.CC = ""
'.BCC = ""
.Subject = "Angebot Microfaser Nr. " & kalk
.Body = "Guten Tag " & AP & "." & Chr(13) & Chr(13) & "Mit dieser Email erhalten Sie _
das gewünschte Angebot." & Chr(13) & Chr(13) & "Falls noch Fragen bestehen melden Sie sich _
gerne."
'.BodyFormat = olFormatPlain '1
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Gruss
RT