[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Openedge 11.7.2 Integration with Outlook .Net APi

Status
Not open for further replies.
B

bernhardkraml

Guest
No mailserver with SMTP allowed in the intranet - i don't know if this is an useful security-measure, but its an worldwide company policy. So I can't setup a secondary.. At the moment I use this code (extracted from my testprogram): DEFINE VARIABLE objOutlook AS COM-HANDLE NO-UNDO. DEFINE VARIABLE objOutlookMsg AS COM-HANDLE NO-UNDO. DEFINE VARIABLE objOutlookAttach AS COM-HANDLE NO-UNDO. DEFINE VARIABLE objOutlookRecip AS COM-HANDLE NO-UNDO. CREATE "Outlook.Application" objOutlook. objoutlookMsg = objOutlook:CreateItem(0). objOutlookRecip = objOutlookMsg:Recipients:Add("User@test.com"). objOutlookRecip:Type = 1. objOutlookMsg:Subject = "TEST Progress". objOutlookMsg:Body = "The Body". objoutlookMsg:ReadReceiptRequested = FALSE. objoutlookMsg:OriginatorDeliveryReportRequested = FALSE. objoutlookMsg:SentOnBehalfOfName = "AppMAIL@company.com". objOutlookMsg:Attachments:Add("C:\SomeAtteachment.xls"). objOutlookRecip:Resolve. objOutlookMsg:Send. RELEASE OBJECT objOutlook. RELEASE OBJECT objOutlookMsg. RELEASE OBJECT objOutlookRecip.

Continue reading...
 
Status
Not open for further replies.
Top