Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: E-Mail Signatur von Outlokk automatisch einfügen

E-Mail Signatur von Outlokk automatisch einfügen
26.06.2024 01:12:46
Manuel1991
Hallo zusammen,
ich hoffe ihr könnt mir da weiterhelfen. Vielen Dank schon mal im Voraus. Ich möchte dass beim E-Mail-versand meine Signatur automatisch eingefügt wird.
 

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = " " & Range("A5") & ""
.Subject = "Vertragsobjekt:"
.body = "Sehr geehrte/r ," & vbCrLf & vbCrLf & hier steht normaler Text" & vbCrLf & "hier soll auch Text rein " & vbCrLf & vbCrLf & und hier dann die Signatur aus Outlook
.Display
End With
End Sub
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: E-Mail Signatur von Outlokk automatisch einfügen
26.06.2024 08:08:22
volti
Hallo Manuel,

hier ein Vorschlag in Minimalversion ohne jegliche Variablenverwendung.

Sub Mail()

With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector.Display
.To = Range("A5").Value
.Subject = "Vertragsobjekt:"
.body = "Sehr geehrte/r ," & vbCrLf & vbCrLf _
& "hier steht normaler Text" & vbCrLf _
& "hier soll auch Text rein" & vbCrLf & vbCrLf _
& .body
End With
End Sub


Wenn Du die erstellten Objekte nicht wieder sauber löscht und WITH verwendest, kannst Du auch gleich diese WITH-Version verwenden. Mache ich zumindest immer so.

Gruß
Karl-Heinz


Anzeige
AW: E-Mail Signatur von Outlokk automatisch einfügen
27.06.2024 02:20:56
Manuel1991
Vielen Dank für eure Hilfe. Es klappt auch nur das Firmenlogo wird in der Signatur nicht dargestellt.
AW: E-Mail Signatur von Outlokk automatisch einfügen
27.06.2024 07:43:46
volti
Guten Morgen Manuel,

dann solltest Du es mit einer HTML-Version probieren.
Die kannst Du dann auch schön formatieren. Allerdings müssen die Zeilenumbrüche nun auch mit HTML-Breaks erstellt werden.

Code:


Sub Mail() With CreateObject("Outlook.Application").CreateItem(0) .GetInspector.Display .To = Range("A5").Value .Subject = "Vertragsobjekt:" .htmlbody = "Sehr geehrte/r ,<br><br>" _ & "hier steht normaler Text<br>" _ & "hier soll auch Text rein<br><br>" _ & .htmlbody End With End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: E-Mail Signatur von Outlokk automatisch einfügen
26.06.2024 10:29:57
MCO
Moin!

Versuch mal folgendes:

Signatur automatisch bei jeder neuen email einfügen
Signatur automatisch bei jeder antwort einfügen

Beides im Outlook einzustellen.

Beim Makro: Zuerst .display, dann weitere texte usw.

Bei mir hat´s geholfen.
Gruß, MCO
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige