Vorhandene HTML Signatur in einfügen

Dilek · 2024-03-24T22:14:36+00:00

Guten Abend in die Runde, dank der Hilfe von Jochen, kann ich eine durch excel vba eine neu erstelle outlook mail erzeugen. Leider klapp es mit dem einfügen einer vorhandenen HTML- Signatur nicht. https://www.herber.de/bbs/user/168301.xlsm Vielleicht kann mir einer von euch helfen. Im Voraus vielen Dank für eure Hilfe Gruß Dilek

Hi,

so funktionierts:
https://www.herber.de/bbs/user/168307.xlsm

ABER!
Voraussetzungen:

- als erstes musst du manuell in Outlook eine Vorlagenmail erstellen; Dateiendung = .oft
Wie das geht, wird hier erklärt: https://administrator.de/knowledge/mit-vba-eine-outlook-nachricht-mit-benutzerdefinierter-signatur-auf-basis-einer-vorlage-erstellen-179192.html

Nur alles in Schritt 1 beachten!
(ich hab meine Test-Vorlage einfach als Vorlage.oft im angegebenen Verzeichnis gespeichert)
Wichtig! Du musst deine Vorlage im angegebenen Verzeichnis speichern...und im Code an richtiger Stelle natürlich den Namen deiner Vorlagendatei angeben, wenn es ein anderer Dateiname ist als Vorlage.oft

Wenn du bis hier hin alles so erledigt hast, wie beschrieben, kannst du meine obige Datei starten.

Ich habe im VBE nur das Userform UF_MAIL gestartet, die Checkbox "Lieferant" ausgewählt und auf den Button "Erstelle Mail" geklickt.
(alle anderen Checkboxen für "DE" usw lösen bei mir einen Fehler aus, weil in der Tabelle Formeln verwendet werden, die "mein Excel", Version 2016 noch nicht kennt.

Jedenfalls, nach Auswahl + Buttonklick kommt das hier raus:

Userbild

- In den Feldern An, CC, Betreff und Body stehen die Texte, die du per Code dort einträgst
(wieso du "Dein Betrefftext hier..." usw in den Body schreibst, weiß ich allerdings nicht)

- Zusätzlich steht an unterster Stelle im Body der Vorlagentext aus meiner Datei Vorlage.oft

Also alles, wie du haben willst.

Hilfts?

Ciao
Thorsten

Hallo zusammen,

irgendwie habe ich es geschafft, dass die Signatur nur 1x erscheint.

Jetzt zieht er sich aber nicht TO / CC & Subject. Vielleicht kann einer von euch es korrigieren

Vorab vielen Dank
Gruß Dilek

Private Sub CommandButton1_Click()

 

Dim sPath As String

Dim strUser As String

Dim strPfad As String

Dim strSignatur As String

Dim Body As String

Dim Nachricht As Object, OutlookApplication As Object

Set OutlookApplication = CreateObject("Outlook.Application")



Set Nachricht = OutlookApplication.CreateItem(0)



 

    If Me.CheckBox5.Value = True Then 'Lieferant

    strto = Range("AF57")

    strcc = Range("Al57")

    strsubject = Range("AR57")

  End If

  If Me.CheckBox6.Value = True Then 'Aufmachung

    strto = Range("AF58")

    strcc = Range("AB37")

    strsubject = Range("AR35")

  End If

  Unload Me

  

'Namen der Signatur 

strSignatur = "XXX"

 

strUser = Environ("Userprofile")

strPfad = strUser & "\AppData\Roaming\Microsoft\Signatures\" & strSignatur & ".html"

Set MyOutApp = CreateObject("Outlook.Application")

  Set MyMessage = MyOutApp.CreateItem(0)

  With MyMessage



 

.Display



End With

Set OutlookApplication = Nothing

Set Nachricht = Nothing

End Sub

Vorhandene HTML Signatur in einfügen

Forumthread: Vorhandene HTML Signatur in einfügen

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Vorhandene HTML Signatur in einfügen

Forumthread: Vorhandene HTML Signatur in einfügen

30 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread