Erster Test (mit den Daten in einer Tabelle) - Schönheit (Schriftart etc.) fehlt noch:
HTML
#include <OutlookEx.au3>
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
Global $meineMailadress = "abcde@gmx.de"
Global $sBetreff = "Telefonnummern Kunden Tour " & _NowDate()
Global $aTermine[][] = [["Werner Meier", "12345 Musterhausen", "Privat: 0123-45678", "Mobil: 0123-45678"], _
["Hans Muster", "12345 Musterhausen", "Privat: 0123-45678"]]
_ArrayDisplay($aTermine)
Global $sBody = "<html><body>"
For $i = 0 to UBound($aTermine) - 1
$sBody &= "<P><b><u>" & $aTermine[$i][0] & "</u></b><br>" ; Vorname Name
$sBody &= $aTermine[$i][1] & "<br>" ; PLZ Ort
$sBody &= $aTermine[$i][2] & "<br>" ; Telefonnr 1
If $aTermine[$i][3] <> "" Then $sBody &= $aTermine[$i][3]
Next
$sBody &= "</html></body>"
Global $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff, "BodyFormat=" & $olFormatHTML, "HTMLBody=" & $sBody)
If @error <> 0 Then Exit MsgBox(16, "", "Item Create: @error = " & @error & ", @extended = " & @extended)
$oItem.Display
Alles anzeigen