ich verwende Comate um von meinen Programm eine E-Mail zu erstellen...
Code: Alles auswählen
Procedure.b CreateOutlookMailStandard(Email_addresse$,Subject$, text$)
Define.COMateObject OutlookObject, olMsg
OutlookObject = COMate_CreateObject("Outlook.Application")
If OutlookObject
olMsg = OutlookObject\GetObjectProperty("CreateItem(0)")
If olMsg
olMsg\SetProperty("to='"+Email_addresse$+"'")
olMsg\SetProperty("Subject='"+ Subject$ +"'")
olMsg\SetProperty("Body='" + text$ + "'")
olMsg\Invoke("Display")
olMsg\Release()
Else
MessageRequester("Sorry", COMate_GetLastErrorDescription())
EndIf
OutlookObject\Release()
Else
MessageRequester("Sorry - CreateObject", COMate_GetLastErrorDescription())
EndIf
EndProcedure
Gibt es eine Möglichkeit die Schriftart im Mail-Text umzustellen bzw. zb. auf (Courier New) zu setzten.
Danke andi256