Office: Signatur in Mail einfügen

Hallo Zusammen,

ich habe einen Makro, welches eine Mail erzeugt:
Code:

Hier möchte ich nun eine bestimmte Signatur mit dem Namen "Wahlo" in Outlook einfügen, bekomme es aber nicht hin. Habe es mit ".getInspector" erfolglos versucht.
Hat jemand eine Idee?
Vorab vielen Dank.

Gruß
Wahlo

:)

 

Hallo Wahlo,

ich habe hier eine Möglichkeit, die aber erst ab Outlook 2007 klappt!

Gruß von Luschi
aus klein-Paris

 

Hi Luschi,

vielen Dank für deine Hilfe, allerdings übersteigt das Ganze meine VBA-Fähigkeiten bei weitem.. :-(
Ich habe die gesamte Sub als Code eingefügt, kann diese aber nicht unter Makros auswählen.. Was mache ich falsch?

Besten Dank
Wahlo

 

Hallo!

Welche Outlookversion benutzt Du denn? Ab Outlook 2007 ist es möglich, auch das Sendekonto vorzuwählen (SendUsingAccount. Damit könntest Du das Konto benutzen, welchem die gewünschte Signatur zugewiesen wurde.

Gruß, René

 

Hallo René,

erst einmal auch dir herzlichen Dank für die Hilfe.
Ich nutze Office 2010, müsste also funktionieren.
Nur wie genau müsste ich den Code einbauen? Verstehe das mit der Combo-Box leider auch nicht. *frown.gif*

Gruß
Wahlo

 

Wenn Du für jede Emailadresse eine eigene datendatei benutzt, dann ist das kein Problem. Im Makro "Kontoname" durch den Namen des Kontos ersetzen. Bei diesem Makro wird dann die Signatur genutzt, welchem dem Konto zugeordnet wurde.

 

Jau, jetzt klappt es. Weltklasse!
Vielen Dank!!!!

Gruß
Wahlo

 

Hallo, vielleicht könnt Ihr mir helfen. möchte bei folgendem makro eine signatur automatisch anhängen. leider komme ich nicht drauf. bei auch blutiger anfänger.

Private Sub CommandButton3_Click()
If MsgBox("Möchtest Du eine Garantiezustellung veranlassen ?", vbYesNo + vbQuestion, "Frage") = vbNo Then Exit Sub
Range("q6:q10").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Garantiezustellung"
.Item.To = "me@web.de"
.Item.Subject = ("ord") & Range("f3") & ("sa")
.Item.send
End With
Range("q9").Value = Range("p6")
End Sub

Hoffe ihr könnt mir helfen.

 

Lösung von dapaco hier
http://www.ms-office-forum.net/forum...d.php?t=287340