Clear Local oMsg as JMail.Message Local oIPSocket as MSWinSock.WinSock oMsg = CreateObject("Jmail.Message") oIPSocket = CreateObject("MSWinsock.Winsock") cIPAddress = oIPSocket.LocalIP cHost = oIPSocket.LocalHostName ? cIPAddress ? cHost oMsg.Logging = .t. oMsg.From = "legionsteve@hotmail.com" oMsg.AddRecipient("legionsteve@hotmail.com","Stevo") oMsg.AddHeader( "Originating-IP" , cIPAddress ) oMsg.Subject = "Test VFP7-1" oMsg.Silent = .f. oMsg.Send("hotmail.com",.f.)
Clear Local oJMail as JMail.SMTPMail oJMail = CreateObject("JMail.SMTPMail") oJMail.ServerAddress = "hotmail.com" oJMail.Sender = "legionsteve@hotmail.com" oJMail.Subject = "Subject 1" oJMail.AddRecipient ("legionsteve@hotmail.com") oJMail.ContentType = "text/html" oJMail.Body = "This is the body" oJMail.ExecuteThe user account "legionsteve@hotmail.com" definitely exists.