#DEFINE cdoSendUsingPort 2 #DEFINE smtpserverport 25 #DEFINE smtpserver 'fireball.dotcomsolution.com' LOCAL loMsg loMsg = NEWOBJECT("CDO.Message") WITH loMsg .FROM = "cfuchs@activevfp.com" .TO = "cfuchs@activevfp.com" .BCC = "" .Subject = "This is the subject line" .TextBody = "This is the body of the message" .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/sendusing").VALUE = cdoSendUsingPort .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserver").VALUE = smtpserver .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserverport").VALUE = smtpserverport .Configuration.FIELDS.UPDATE .SEND ENDWITH loMsg = NULL MESSAGEBOX("Mail sent")>Hi Everyone,