George
This works for me...
Jack Skelley
LOCAL objCDOSYSMail, objCDOSYSCon, i, lbBlind_CC, lcSent_via
objCDOSYSMail = CreateObject("CDO.Message")
objCDOSYSCon = CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername";)
= "YourUserNameHere"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword";)
= "YourPasswordHere"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver";)
= "smtp.gmail.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing";)
= 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport";)
= 465
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";)
= 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl";)
= 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";)
= 60
objCDOSYSCon.Fields.update
objCDOSYSMail.From = "Jack <[email protected]>"
**********************************************************************************
objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.ReplyTo = "Jack <[email protected]>"
objCDOSYSMail.Subject = ALLTRIM(thisform.txtSubject.Value)
objCDOSYSMail.TextBody = ALLTRIM(thisform.edtNotes.Value)
********************************************************************************
IF thisform.lstAttachments.ListCount > 0 THEN
FOR i = 1 TO thisform.lstAttachments.ListCount
objCDOSYSMail.AddAttachment(ALLTRIM(thisform.lstAttachments.List(i, 2)) +
ALLTRIM(thisform.lstAttachments.List(i, 1)))
ENDFOR
ELSE
WAIT WINDOW "No Attachments Found..." TIMEOUT 1
ENDIF
*
**********************************************************************************
*objCDOSYSMail.CC = "[email protected]"
*objCDOSYSMail.BCC = "[email protected]"
**********************************************************************************
objCDOSYSMail.To = ALLTRIM(tView.email)
********************************
objCDOSYSMail.Send() &&uncomment when ready to compile...
********************************
objCDOSYSMail = null
objCDOSYSCon = null
________________________________________
From: ProfoxTech [[email protected]] on behalf of G Gambill
[[email protected]]
Sent: Friday, September 05, 2014 10:17 AM
To: [email protected]
Subject: Send Email (gmail) From VFP 6 - Suggestions
I am wanting to send induviduals emails from a DBF. TIA George
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/7d9e7f72b813014c8fd022cf04f820ed010d65b...@ex08.drdad.thenewarkarena.com
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
