Vorhandene HTML Signatur in einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

strBody = "Dein Betrefftext hier oder auch aus einer Zelle holen!!" Set MyOutApp = CreateObject("Outlook.Application") 'speicher eine leere email mit der signatur als Emailvorlage Set MyMessage = MyOutApp.CreateItemFromTemplate("C:\Users\#username einfügen#\AppData\Roaming\Microsoft\Templates\testvorlage.oft") With MyMessage .To = Range("aJ37") .cc = Range("AN37") .Subject = Range("aB64") strSignatur = .HTMLBody .HTMLBody = strBody & vbNewLine & strSignatur 'wie die Signatur zu holen ist? Hab' keine Ahnung .Display End With

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

Code:

Sub Test()
  strBody = "Dein Betrefftext hier oder auch aus einer Zelle holen!!"
  
  With CreateObject("Outlook.Application").CreateItem(0)
    .GetInspector.Display
    .To = Range("aJ37")
    .cc = Range("AN37")
    .Subject = Range("aB64")
    .HTMLBody = strBody & "<br>" & .HTMLBody
  End With
End Sub

Hi...grmplmll...grrr

und bitte WAS soll mir das sagen??????

Sorry, aber ich schau dir bei deinen Versuchen - NICHT - über die Schulter!
Einfach nur "es wird gelb" hilft hier nicht!

Wenn du, wie ich vorschlug, im VBE mit F8 arbeitest, wird - jede Codezeile - gelb, sobald es zu ihrer Ausführung kommt.
Bedeutet:

- drück im VBE so oft auf F8 UND beobachte die dabei erstellte Mail...
- ... bis du an die Stelle kommst, wo in der Mail ein 2. Mal die Signatur eingetragen wird

JETZT weißt du, welche Codezeile diesen 2. Eintrag auslöst...und kannst den Code an der Stelle korrigieren.

Dilek, stell dir mal vor, du telefonierst mit wem, dem du am Telefon helfen sollst.
Der/Die sagt einfach nur "es geht nicht!"

BITTE WIE KANNST NUN DU MIT DIESER AUSSAGE "es geht nicht!" HELFEN, OHNE NACHFRAGEN ZU MÜSSEN, WAS DENN GENAU NICHT GEHT???? ...diese Frage IST NICHT rhetorisch - bitte beantworte diese Frage.

Ciao
Thorsten

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

Beliebteste Forumthreads (12 Monate)

Vorhandene HTML Signatur in einfügen

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vorhandene HTML Signatur in einfügen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread