Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
; generates a new mail in outlook. Multiple attachments in Attachments.s must be devided using pipe (|) char.
Procedure.b CreateOutlookMailStandard(Subject.s, Recipient.s, MessageBody.s, Attachments.s)
Protected olApp.l, olMsg.l
Protected FileNo.l, FileList.s, File.s
dhToggleExceptions(#False) ; dont display dispatcher errors
olApp.l = dhCreateObject("Outlook.Application") ; create new Outlook instance
If olApp.l
olMsg.l = 0 ; init
dhGetValue("%o", @olMsg.l, olApp.l, ".CreateItem(%d)", 0) ; create a new mailitem
; add header informations
dhPutValue(olMsg.l, ".Subject = %T", @Subject.s)
dhPutValue(olMsg.l, ".To = %T", @Recipient.s)
dhPutValue(olMsg.l, ".Body = %T", @MessageBody.s)
; add all attachements (divided using pipe "|" )
FileNo.l = 1
FileList.s = ReplaceString(FileList.s, "||", "|") ; ignore empty entry's
File.s = StringField(FileList.s, FileNo.l, "|")
While File.s <> ""
dhCallMethod(olMsg.l, ".Attachments.Add(%s)", @File.s)
FileNo.l = FileNo.l + 1
File.s = StringField(FileList.s, FileNo.l, "|")
Wend
; display and send message
dhCallMethod(olMsg.l, ".Display")
dhCallMethod(olMsg, ".Send")
dhCallMethod(olApp, ".Quit")
; release outlook objects
dhReleaseObject(olMsg.l) : olMsg.l = 0
dhReleaseObject(olApp.l) : olApp.l = 0
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
Code: Alles auswählen
IncludePath #PB_Compiler_Home + "srod\comateplus\" ; Pfad anpassen!
XIncludeFile "comateplus.pbi"
Define oOApp.COMateObject
Define oOMail.COMateObject
oOApp = Comate_CreateObject("Outlook.Application")
If oOApp
oOMail = oOApp\GetObjectProperty("CreateItem(0)")
If oOMail
oOMail\SetProperty("To='irgendeine@mailadresse.de'")
oOMail\SetProperty("Subject='Hello'")
oOMail\SetProperty("Body='World'")
oOMail\Invoke("Send")
oOMail\Release()
EndIf
oOApp\Release()
EndIf