|
Hallo Ihr lieben,
ich habe folgenden Code und versuche verzweifelt meine Outlook Signatur hier automatisch via VBA einzufügen. Kann man hierbei jemand helfen? (benutze OL13)
Sub Mail_With_Attachment()
Dim olApp As Object, objMail As Object
Dim Adressat As String
Dim thema As String
Dim text As String
Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)
With objMail
.To = "xx@xx.com;"
.CC = "yy@yy.com"
.Subject = "Dies ist der Betreff"
.Body = "Sehr geehrte Frau aa," & vbNewLine & _
"sehr geehrter Herr bb" & vbNewLine & vbNewLine & _
"anbei die aktuelle..." & vbNewLine & _
"Bei Rückfragen stehe ich Ihnen gerne zur Verfügung"
.Attachments.Add "R:\xlsx"
.Attachments.Add "R:\xlsx"
' ...
.Send
End With
Set objMail = Nothing
Set olApp = Nothing
End Sub
Grüße,
Felix |