Forum des VBA-Tutorials

Signatur Outlook VBA (VBA)

Felix, Donnerstag, 04. Mai 2017, 12:19 (vor 81 Tagen)

Hallo zusammen,
ich versuche verzweifelt eine Signatur in OL13 an eine Mail zu heften aber es fkt. nicht...
Hier der Code, hoffe das jemand helfen kann:

Sub xxx()

Dim objNachrich As Object
Dim Kommentar As String
Dim Verteiler As String
Dim i As Integer


Dim IST As Integer
Dim SOLL As Integer
Dim STD As Integer
Dim H As Integer

Set olApp = CreateObject("Outlook.Application")
Set objNachrich = olApp.CreateItem(0)
Set Mail = objNachrich



Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)
With objMail
.To = "xx@xx.com;" 'Mail-Adressen der Empfänger
.CC = "yy@yy.com" 'Mail-Adressen CC, durch Semikolon erweiterbar
.Subject = "aa" 'Betreff der Mail
.Body = "Sehr geehrte Frau xx," & vbNewLine & _
"sehr geehrter Herr yy" & vbNewLine & vbNewLine & _
"anbei die aktuelle.." & vbNewLine & _
"Bei Rückfragen stehe ich Ihnen gerne zur Verfügung" 'Text der Mail mit Zeilenumbrüchen

.Attachments.Add "R:\xlsx"


'Mail nun Anzeigen - wichtig, damit 'GetInspector' funktioniert
.Display

'Cursor ans Ende der EMail setzen
VBA.SendKeys "^{END}", True
VBA.SendKeys "{NUMLOCK}", True


'Name der gespeicherten Signatur
strSignatur = "Name der Signatur"

'Einfügen einer bestimmten Signatur
.GetInspector.CommandBars.Item("Insert"). _
Controls("Signatur").Controls(strSignatur).Execute



.Send
End With
Set objMail = Nothing
Set olApp = Nothing
End Sub


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum