Guten Morgen,
ihr Experten.
hab da mal eine Frage.
Kann man mit der OutookEx eine Mail senden, ohne das man nochmal extra Outlook öffnen muß.
Gruß
Windi
HTML
Func Mail_senden() ;Funtion Mail_senden
Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)
Global $sMeineMailadresse = $Mailadress
Global $sBetreff = "Test " & _NowDate()
Global $aTermine = __ParseCSV($Quelldatei, ';') ; <== Name der Eingabedatei hier anpassen!
Global $sBody = "<html><body>"
For $i = 1 to UBound($aTermine) - 1
If $aTermine[$i][0] <> "" Then ; ignoriere leere Zeilen
$sBody &= "<P><b><u>" & $aTermine[$i][1] & "</u></b><br>" ; Vorname Name
$sBody &= $aTermine[$i][2] & "<br>" ; Straße
If StringLen($aTermine[$i][3]) = 4 Then
$sBody &= "0" & $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 4 stellig mit 0
Else
$sBody &= $aTermine[$i][3] & " " & $aTermine[$i][4] & "<br>" ; PLZ Ort 5 stellig
Endif
If $aTermine[$i][5] <> "" Then $sBody &= "Privat: " & $aTermine[$i][5] & "<br>" ; Telefonnr 1
If $aTermine[$i][6] <> "" Then $sBody &= "Firma: " & $aTermine[$i][6] & "<br>" ; Telefonnr 2
If $aTermine[$i][7] <> "" Then $sBody &= "Mobil: " & $aTermine[$i][7] & "<br>" ; Handy
EndIf
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)
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $sMeineMailadresse)
If @error <> 0 Then Exit MsgBox(16, "", "Recipient Add: @error = " & @error & ", @extended = " & @extended)
;$oItem.display ; zeigt die Mail Kontrolle
_OL_ItemSend ( $oOutlook , $oItem )
_OL_Close ( $oOutlook )
EndFunc ;==> Funktion Mail_senden
Alles anzeigen