Office: Outlook E-mail aus Excel mit Signatur und Anhang erstellen.

Hallo zusammen,

Ich bin ein VBA Anfänger und habe mehr oder weniger ein Makro erstellt (kopiert), um Outlook E-mails via Excel zu erstellen. Soweit funktioniert das Makro auch. Jetzt würde ich noch gerne meine Outlook Signatur und einen Anhang automatisch hinzufügen, leider fehlen mir die Fähigkeiten bzw. funktioniert das bei mir nie. Kann mir jemand helfen?

Meine Formel:

Sub Senden_Sie()
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage

.To = Range("U2")
.Subject = Worksheets("V-info").Range("A110")
.body = Range("J2") & Range("K2") & Worksheets("V-Info").Range("B110") & Range("AD3") & Range("AB2") & Range("L2") & Worksheets("V-Info").Range("C110") & Range("AE3") & Worksheets("V-Info").Range("D110")
.Display

End With

Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub

Vielleicht kann mir jemand die Formel direkt umschreiben. Über Hilfe würde ich mich sehr freuen! *Smilie

:)

 

Hi,

Code:

 

Hallo Beverly,

Der Code mit dem Anhang hat super funktioniert. Vielen Dank dafür!
Leider erscheint die Signatur bei mir nicht. Vllt kannst du mir da nochmal helfen.
Zusätzlich habe ich das Problem, dass das Makro auf Windows 7 einwandfrei funktioniert, jedoch erscheint auf Windows 8 immer eine Fehlermeldung: Laufzeitfehler Die Methode to für das Objekt MailItem ist fehlgeschlagen

Hier nochmal mein Code:

Sub Senden_Sie()
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage

.Attachments.Add "C:\test\deineMappe1.pdf"
.Attachments.Add "C:\test\deineMappe2.pdf"
.To = Range("U2")
.Subject = Worksheets("V-info").Range("A110")
.body = Range("J2") & Range("K2") & Worksheets("V-Info").Range("B110") & Range("AD3") & Range("AB2") & Range("L2") & Worksheets("V-Info").Range("C110") & Range("AE3") & Worksheets("V-Info").Range("D110")
.GetInspector
.Display

End With

Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub


Ich würde mich freuen, wenn mir jemand weiterhelfen könnte *Smilie Danke!

 

Hallo jlando,

Du solltest auch dazuschreiben, welche Outlook-Version im Spiel ist, denn gerade hier hat M$ die Intension, den Vba-Programmierer zu ärgern und bestimmte Grundvoraussetzungen immer wieder ohne Grund umzuschmeißen.

Gruß von Luschi
aus klein-Paris

PS: meine letzten (klugen) Vba-Ideen (Outlook 2010) zur Signatur sind in Outlook 2013 für die Katz!!!

 

Hallo Luschi,

Mein Outlook-, sowie meine Excelversion ist von 2007. Ich hoffe das hilft weiter.

 

Hallo Hallo jlando,

folgen dem Link: http://www.ms-office-forum.net/forum...hp?t=322523#11

Gruß von Luschi
aus klein-Paris

 

Ok, ich habe mir den Forumseintrag angeschaut, werde aber nicht ganz schlau aus der Sache. Funktioniert das mit der Signatur über objMail? UND wenn ja, wo muss ich das ganze einfügen? Habe leider wenig Ahnung von VBA.