Hallo zusammen,
ich möchte eine Signatur in Word erstellen.
Das funktioniert soweit auch gut.
Mein Problem ist, es wird eine leere Mail erzeugt.
Wie kriege ich den inhalt in die Mail.
Bin absoluter Anfänger und habe es mir zusammen kopiert.
Bitte um Hilfe!
liebe Grüße
Windi
#include <OutlookEx.au3>
#include <Word.au3>
;Worddatei schreiben
Global $oWord = _Word_Create ()
Global $oDoc = _Word_DocAdd ( $oWord )
$oSelection = $oWord.Selection
$oSelection.Font.Bold = True ; Fett Schrift
$oSelection.Font.Underline = True ; Unterstreichen
$oSelection.Font.Size = 14 ; Schriftgröße
$oSelection.TypeText("Kundenliste Tour: ")
$oSelection.Font.Size = 12 ; Schriftgröße
$oSelection.TypeParagraph
$oSelection.TypeParagraph
Global $meineMailadress = "abcde@gmx.de"
Global $sBetreff = "Subject=" & "Telefonnummern Kunden Tour " &_NowDate ()
Global $oOutlook = _OL_Open()
sendemail($meineMailadress, $sBetreff, $oDoc) ; Funktion sendmail aufrufen
;---------------------------------------------
Func sendemail($meineMailadress, $sBetreff, $oDoc)
_OL_MailSignatureSet("Sigalt-2", "Sigalt-2") ; in Outlook vorhandene Signatur
Local $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", $sBetreff)
_OL_ItemModify($oOutlook, $oItem, Default, "Body=") ; Überschreibt den Mail-Body mit dem neuen Text
Local $aRecipients = $meineMailadress
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $aRecipients)
$oItem.BodyFormat = $olFormatHTML
$oItem.GetInspector
$sBody = $oItem.HTMLBody
$oItem.HTMLBody = $sBody
$oItem.Display
_OL_MailSignatureSet("Sigalt-1", "Sigalt-1") ; zurückstellen auf Standard-Signatur
EndFunc ;==>sendmailma31
Die Worddatei sieht nachfolgend aus:
Telefonnumern Tour vom 01.01.2020
Hartmut Müller
12345 Musterhausen
Mobil: 0123-456789
Werner Maier
12345 Musterhausen
Privat: 0123-456789
Hans Muster
12345 Musterhausen
Privat: 0123-456789
Hannes Meyer
12345 Musterhausen
Privat: 0123-456789
Firma: 0123-456789
Mobil: 0123-456789