Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

E-Mail Signatur wird nicht angefügt bei Mailerstellung

Forumthread: E-Mail Signatur wird nicht angefügt bei Mailerstellung

E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 14:25:19
resli
Hallo zusammen

Ich habe ein Mail VBA Code zusammengebastelt aus dem Netz, ich bringe nun aber die Signatur nicht hin, bzw. es wird immer überschrieben durch den Body

Hier mein aktuellen Code ausschnitt: 

strBodyText = "Hallo Herr XXX." & vbCrLf & vbCrLf & "anbei die aktuelle Auftragsliste für das ..." & vbCrLf & vbCrLf & "Gruß ..."





'** Mail erzeugen

With Mail

.GetInspector.Display

.To = "XXXX.XXXX@XXX.com"

'.CC = ""

.Subject = "Kabelmeldung_" & ActiveSheet.Range("c2").Value

 'Betreff



.BodyFormat = 2 '2 = HTML, 1 = Text



.Attachments.Add strDatei 'Anhang

.Body = strBodyText 'Bodytext / Signatur

End With



'** Erzeugte Datei schließen

Workbooks(Dir(strDatei)).Close



'** Erzeugte Datei wieder löschen

Kill (strDatei)



'** E-Mail anzeigen

Mail.Display

Application.DisplayAlerts = True

End Sub
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 14:32:33
Oberschlumpf
Hi,

diesen SuchText...
vba E-Mail Signatur wird nicht angefügt
...hab ich in Google eingegeben = ganz viele Treffer = es funktioniert auch der Eine oder Andere.

Hast du auch schon gegoogelt?

Sorry, soll nich genervt rüberkommen, aber genau diese Frage lese ich...nur in diesem Forum...so ca alle 3 Monate.

Ciao
Thorsten
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 16:56:28
resli
Hallo Thorsten

Ja hatte es versucht aber leider im Google sehr wenig Erfolg gehabt entweder hat es die Signatur hinzugefügt dafür der Body Text nicht oder umgekehrt. Oder einige funktionierten überhaupt nicht.

Deshalb habe ich mich ans Forum gewendet mit meinem Code um Klarheit zu bekommen.

Gruss Andi
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 16:50:20
Armin
Hallo resli,
So funktioniert es: 


Sub SendMessage(Mail As String, Betreff As String, Optional Anhang As String)

Dim Nachricht As Object, OutApp As Object

Dim TxT As String

Dim olOldBody As String

Application.ScreenUpdating = False

Set OutApp = CreateObject("Outlook.Application")

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

     .GetInspector.Display

      olOldBody = .HTMLBody 'es geht nur mit HTMLBody '!!

     .To = Mail

     .Subject = Betreff

     '.Attachments.Add Anhang 'ist nur erforderlich wenn ein Atachment

     .HTMLBody = TxT & vbLf & vbCrLf & vbCrLf & olOldBody

     .Send

End With

Application.ScreenUpdating = True

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub



Sub Test()

SendMessage "info@......de", "test"

End Sub


'Outlook muss gestartet sein(!)
'Es muss eine Standart Signatur existieren.
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 17:09:47
resli
Hallo

Danke für den Beitrag aber ich bin zu D... schaffe es nicht oder es ist eine Regel auf meinem PC schaue mal noch mit einem anderen.

Dein Code funktioniert nicht egal was ich bei der Mailadresse oder zusätzlich im Body als Text eingebe es kommt nur die Signatur... wenigstens :-)
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 18:00:21
volti
Hallo,

ein lauffähiges Beispiel....

Zur Erklärung:
1. Wenn Txt nicht mit Text gefüllt ist bleibt damit auch der Mailbody leer. Besser man übergibt der Funktion auch den Mailtext, z.B. mit sMailtext o.ä..
2. Wenn HTML-Mail verwendet wird, muss auch mit HTML-Tags formatiert werden. Z.B. Zeilenumbrüche nicht per vbCRLF sondern mit <br>.
3. Wird der Mailtext in einem Befehl/String übergeben, muss man die Signatur auch nicht vorher in einer Variablen speichern.
4. Die Signatur kann, wenn keine HTML-Mail verwendet wird, auch per .body angehängt werden, es muss nicht zwangsweise .htmlbody sein 

Sub SendMessage(sMail As String, sBetreff As String, Optional sAnhang As String)



  With CreateObject("Outlook.Application").CreateItem(0)

     .GetInspector.Display

     .To = sMail

     .Subject = sBetreff

     .htmlBody = "Hallo,<br>eine Mail von mir<br><br>" & .htmlBody

'     .Send

     If sAnhang > "" Then .Attachments.Add sAnhang

  End With



End Sub

Gruß
Karl-Heinz
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 18:10:51
volti
Oder so... 

Code:


Sub Test()
  SendMessage "khv@volti.de", "Hallo,<br>mein Testtext", "Mein Betreff"
End Sub


Sub SendMessage(sTo As String, sMailtext As String, sBetreff As String, _
                Optional sAnhang As String)
  With CreateObject("Outlook.Application").CreateItem(0)
     .GetInspector.Display
     .To = sTo
     .Subject = sBetreff
     .htmlBody = sMailtext & "<br><br>" & .htmlBody
'     .Send
     If sAnhang <> "" Then .Attachments.Add sAnhang
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: E-Mail Signatur wird nicht angefügt bei Mailerstellung
05.06.2024 21:41:48
resli
Hallo zusammen

Vielen dank euch ich habe es nun auf meinem anderen PC ausprobiert und es funktioniert.....

Dann liegt das Problem am Outlook oder einer Einstellung

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige