Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Signatur Outlook GetInspector
#1
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
Antworten Top
#2
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.
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#3
Hallo!

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

Gruß, René
Antworten Top
#4
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
Antworten Top
#5
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

[-] Folgende(r) 1 Nutzer sagt Danke an mumpel für diesen Beitrag:
  • BachFel
Antworten Top
#6
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.
Antworten Top
#7
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?
Antworten Top
#8
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.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste