Office: Signatur in generierter Email (die 100.)

FragendeNiete · 24. Mai 2015

Guten Tag zusammen,

auch ich habe das Problem, dass meine Signatur in einer durch ein VBA-Marko erzeugten Email nicht angezeigt wird. Genutzt wird Office 2010 (Excel, Outlook etc.).

Das VBA-Makro sieht wie folgt aus:

Code:

Sub einzelnes_Blatt_senden()
'Das aktive Tabellenblatt wird über Outlook versendet
'Bestimmung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strBodyText As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'Pfad für Zwischenspeicherung angeben
strPfad = "C:\Temp"
' Kopiere das aktuelle Blatt in neue Arbeitsmappe
strBlatt = ActiveSheet.Name
'Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
' Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name

' Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName

'Body-Content
strBodyText = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & "ich schreibe Ihnen hier ganz viel Text," & vbCrLf & "leider funktioniert es mit der Signatur aber noch nicht." & vbCrLf & vbCrLf & "Ich muss die Email daher ohne Signatur senden :-(." & vbCrLf & vbCrLf

' Mail erzeugen
With Mail

.getinspector
.To = "test@info.de"
.Subject = "Dies ist der Betreff"
.BodyFormat = 2
.Attachments.Add strDatei 'Anhang
.Body = strBodyText

End With

'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close

'** Erzeugte Datei wieder löschen
Kill (strDatei)

'** E-Mail anzeigen
Mail.Display
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Mail wird korrekt als HTML-Nachricht erzeugt, leider jedoch ohne Signatur.
Ich habe nun mehrere Stunden im Netz gesucht und mehrfach gelesen, dass der .Body die Signatur überschreibt.

Wenn ich im Debugging-Modus unterwegs bin, dann sehe ich teilweise die generierte Signatur (in der Email), die dann aber ein paar Schritte durch den .Body überschrieben wird.

Eine zentrale Signatur kann ich leider nicht nutzen, da das Formular von "X" Leuten genutzt werden soll.

Frage Nr. 2: Ich bekomme immer diese komische Sicherheitsmeldung ("Will auf Ihre gespeicherten Informationen zugreifen") - kann ich die irgendwie per Makro umgehen?

Wichtig wäre mir, dass ich die Signatur mit in die Email laden kann.

Vielen Dank

:)

Luschi · 26. Mai 2015

Hallo,

ich benutze das Makro 'Mail_Outlook_With_Signature_Html_2' von dieser Seite:
Insert Outlook Signature in mail

Gruß von Luschi
aus klein-Paris

FragendeNiete · 26. Mai 2015

Hallo Luschi,

das ist schon mal nicht schlecht. Die Website kommt mir irgendwie noch bekannt vor.
Das Problem ist, dass das Tool evtl. von mehreren hundert Usern benutzt werden soll.

Wir haben bei uns nun mehrere Signaturen, die auch nicht immer "Signatur 1" oder "Signatur 2" heißen, sondern von der individuellen Namensvergabe abhängig sind.
Die auf der Website hochgeladenen VBA-Skripte setzen aber voraus, dass man die Signatur kennt (das tue ich leider nicht).

Eine Option wäre nun natürlich, dass man VBA "befähigt" die erste "html-Datei" einzulesen.
Die Mails werden nur intern versendet, aber ganz ohne Signatur finde ich es doof.

Gibt es noch Alternativen?

Luschi · 26. Mai 2015

Hallo FragendeNiete,

ich habe ja Verständnis, daß du 1ne allgemeingültige Lösung suchst, aber bei 'mehreren hundert Usern' wird es Zeit, daß in der Firma ein paar Prioritäten gesetzt werden:
- einheitliche Bezeichnung der 3 (5) wichtigsten Standardsignaturen
- einheitlicher Aufbau der Signaturen

Ansonsten könnte man die vorhandenen Signaturen auslesen und in einem Auswahl-Formular anbieten. Aber das würde die kostenlose Hilfe in einem Forum wohl übersteigen.

Gruß von Luschi
aus klein-Paris

FragendeNiete · 26. Mai 2015

Hallo Luschi,

das sehe ich genauso wie du - leider ist man noch nicht so weit.
Ich habe nun aber eine Lösung gefunden, die zumindest bei mir zu Hause sehr gut funktioniert.

Code:

Sub einzelnes_Blatt_senden()
'Das aktive Tabellenblatt wird über Outlook versendet
'Bestimmung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strBodyText As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim olDummy As String

Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'Pfad für Zwischenspeicherung angeben
strPfad = "C:\TEMP"
' Kopiere das aktuelle Blatt in neue Arbeitsmappe
strBlatt = ActiveSheet.Name
'Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
' Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name

' Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName

'Body-Content
strBodyText = "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf & "es läuft und zwar nun auch mit der blöden Signatur." & vbCrLf & "Was soll ich noch groß sagen?." & vbCrLf & vbCrLf & "Ich finde es großartig!" & vbCrLf

' Mail erzeugen
With Mail

.getinspector.Display
olDummy = .Body
.To = "name@name.de"
.Subject = "Schon gut"
.BodyFormat = 1
.Attachments.Add strDatei 'Anhang
.Body = strBodyText & .Body

End With

'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close

'** Erzeugte Datei wieder löschen
Kill (strDatei)

'** E-Mail anzeigen
Mail.Display
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Signatur in generierter Email (die 100.)

Signatur in generierter Email (die 100.)

Signatur in generierter Email (die 100.)

Signatur in generierter Email (die 100.)

Signatur in generierter Email (die 100.) - Similar Threads - Signatur generierter Email

Signatur in neuer Nachricht

Signatur legt Postfach lahm

Outlook Signaturen fehlen nach update

Outlook unterschiedliche Signaturen bei gleichem Konto

Signatur in htm mit CheckBoxen

Outlook Signatur in Mail

Signatur mit Rahmen