Hallo zusammen,
ich habe mich mal wieder mit dem Thema „Outlook Mail mit Voreinstellungen“ öffnen beschäftigt. Voraussetzung: Die Mail soll die hinterlegte Signatur beinhalten.
Mein Code:
Das Problem ist, so denke ich, dass mit mail.Body = "Text der im Body erscheinen soll" die Signatur überschrieben wird.
Wenn‘s denn so ist, dann wäre mein Lösungsansatz, die vorhandene Signatur zuvor aus dem Body auszulesen, zu kopieren (Zwischenspeicher) und anschließend dem mail.body hinzuzufügen. Etwa so: mail.Body = "Text der im Body erscheinen soll" + Signatur
Gedachte Umsetzung mit der With Anweisung:
Ist mein Ansatz richtig und vor allem wie geht’s richtiger?
Beste Grüße
sterat
ich habe mich mal wieder mit dem Thema „Outlook Mail mit Voreinstellungen“ öffnen beschäftigt. Voraussetzung: Die Mail soll die hinterlegte Signatur beinhalten.
Mein Code:
VB.NET-Quellcode
- Private Sub bt_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim objOutlook As Outlook.Application
- objOutlook = New Outlook.Application
- Dim mail As Outlook.MailItem
- mail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)
- mail.To = "sterat@blabla.bla"
- mail.Subject = "Mail mit Voreinstellungen"
- mail.Body = "Text der im Body erscheinen soll"
- mail.Display()
- End Sub
Das Problem ist, so denke ich, dass mit mail.Body = "Text der im Body erscheinen soll" die Signatur überschrieben wird.
Wenn‘s denn so ist, dann wäre mein Lösungsansatz, die vorhandene Signatur zuvor aus dem Body auszulesen, zu kopieren (Zwischenspeicher) und anschließend dem mail.body hinzuzufügen. Etwa so: mail.Body = "Text der im Body erscheinen soll" + Signatur
Gedachte Umsetzung mit der With Anweisung:
VB.NET-Quellcode
- Private Sub bt_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Dim objOutlook As Outlook.Application
- objOutlook = New Outlook.Application
- Dim mail As Outlook.MailItem
- mail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)
- mail.To = "sterat@blabla.bla"
- mail.Subject = "Mail mit Voreinstellungen"
- With mail
- Signatur = InZwischenspeicherKopieren
- mail.Body = "Was kann ich tun? " + Signatur
- End With
- mail.Display()
- End Sub
Ist mein Ansatz richtig und vor allem wie geht’s richtiger?
Beste Grüße
sterat
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sterat“ ()