As promised. This example uses a Gmail account.
lcErr = "" lcSchema = "http://schemas.microsoft.com/cdo/configuration/" loConfig = CREATEOBJECT("CDO.Configuration") WITH loConfig.FIELDS .ITEM(lcSchema + "smtpserver") = "smtp.gmail.com" .ITEM(lcSchema + "smtpserverport") = 465 && 465 or 587 .ITEM(lcSchema + "sendusing") = 2 .ITEM(lcSchema + "smtpauthenticate") = .T. .ITEM(lcSchema + "smtpusessl") = .T. .ITEM(lcSchema + "sendusername") = lcUserName .ITEM(lcSchema + "sendpassword") = lcPassword .UPDATE ENDWITH loMsg = CREATEOBJECT ("CDO.Message") WITH loMsg .Configuration = loConfig .FROM = lcFrom .TO = lcTo IF NOT EMPTY(lcCC) .CC = lcCC ENDIF IF NOT EMPTY(lcBCC) .BCC = lcBCC ENDIF .Subject = lcSubject .TextBody = lcText IF NOT EMPTY(lcAttach1) .AddAttachment(lcAttach1) ENDIF IF NOT EMPTY(lcAttach2) .AddAttachment(lcAttach2) ENDIF .Send() ENDWITH
HTH
John
John Weller 01380 723235 07976 393631
-----Original Message----- From: ProfoxTech profoxtech-bounces@leafe.com On Behalf Of MB Software Solutions, LLC Sent: 21 August 2019 05:22 To: profoxtech@leafe.com Subject: Easiest/best way to create an email using local MS Outlook with file attachments?
VFP9SP2 app
Customer uses Outlook and wants the app to generate an email to a given email address from the app AND attach certain documents to it. Customer will preview it and then manually hit "Send" on their own.
What's the BEST (and hopefully easiest) way to implement this? Invoke Outlook via CREATEOBJECT and set properties and attachments accordingly? Typically in the past I've used MAILTO and ShellExec but this time the extra requirement is to have files attached from the application too, which makes MAILTO not an option, if I understand correctly.
tia, --Mike
--- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus
[excessive quoting removed by server]