VBA Signatur Outlook GetInspector

[BachFel]

Hallo,

ich versuche verzweifelt meine OL-Signatur per VBA zu erzeugen. Es sollte vermutlich mit GetInspector funktionieren.. aber meine Fähigkeiten sind dahingehend begrenzt. Hoffe sehr das einer der Experten hier helfen kann. Benutze übrigens OL13.

Code:

Sub Mail_With_Attachment()
   Dim olApp As Object, objMail As Object
   Dim Adressat As String
   Dim thema As String
   Dim text As String



 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 = "[email=xx@xx.com]xx@xx.com[/email];" 'Mail-Adressen der Empfänger
      .CC = "[email=yy@yy.com]yy@yy.com[/email]"  '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

[Zwergel]

Hi,

per Suche im Netz mit diesen Begriffen "outlook signatur per vba einfügen" finden sich einige Treffer, die du dir mal ansehen solltest.

http://www.ms-office-forum.net/forum/sho...p?t=245260  oder

http://www.herber.de/forum/archiv/1272to...uegen.html

Da ich nicht mit Outlook arbeite, kann ich sonst dazu nichts beisteuern.

[mumpel]

Hallo!

http://www.rholtz-office.de/outlook/emai...llen_teil1
http://www.rholtz-office.de/outlook/emai...llen_teil5

Gruß, René

[BachFel]

Vielen Dank für die schnellen Rückmeldungen.
Habe dazu auch schon vieles gelesen aber verstehe nicht wie man GetInspector final einbaut das es funktioniert =/
Es erscheint immer wieder der Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument.

Vielleicht kann sich einer von Euch mal den Code anschauen und dort einen Änderungsvorschlag machen, wäre super hilfreich.
Vorab schon mal vielen Dank für die Bemühung.

Liebe Grüße

[mumpel]

Ich habe Deinen Code etwas gekürzt.

Option Explicit


Sub Mail_With_Attachment()
   
   Dim olApp As Object
   Dim olOldBody As String
    
   Set olApp = CreateObject("Outlook.Application")
       With olApp.CreateItem(0)
           .GetInspector.Display
           olOldBody = .htmlBody
           .To = "xx@xx.com"
           .CC = "yy@yy.com"
           .Subject = "aa"
           .htmlBody = "Sehr geehrte Frau xx,<br>" & _
                       "sehr geehrter Herr yy,<br><br>" & _
                       "anbei die aktuelle..<br>" & _
                       "Bei Rückfragen stehe ich Ihnen gerne zur Verfügung.<br><br>" & _
                       olOldBody
           .Attachments.Add "R:\xlsx"
       End With

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

[mumpel]

Im Übrigen funktioniert ".GetInspector.CommandBars.Item" nicht mehr, da es keine CommandBars mehr gibt und in Outlook-VBA kein Zugriff auf das Outlook-Menüband möglich ist. Ich habe auch schon vergeblich versucht ".GetInspector.CommandBars.Item" in OL 2013-2016 zum Laufen zu bringen.

[BachFel]

Vielen Dank für deine Hilfe!
Da meine HTML-Kenntnisse leider nicht vorhanden sind: Warum ist die Frau xx im Body fett?
Das Zeichen
erzwingt doch lediglich einen Zeilenumbruch?

[mumpel]

Das liegt an Outlook. Die erste Zeile wird häufig falsch dargestellt. Wenn Du eine einheitliche Schriftform möchtest musst Du per Code eingreifen. Z.B. über den Word-Editor (http://www.rholtz-office.de/outlook/emai...llen_teil2), das ist aber schon ein klein wenig schwieriger.