This is not VB code! At least .T. and .F. have to be replaced with True and False.

To send e-mails, have a look at this free component: http://www.freevbcode.com/ShowCode.Asp?ID=109


>In the following code, I'm getting an "Unspecified error occured"
>on the line oMessages.Send()
>
>Anyone know what's wrong here?
>
>
>

>cLoginName = "loginname"
>cPassword = "password"
>cRecipient = "kmarois@comcast.net"
>cSubject = "Test Email"
>cBody = "This is a test
>*cAttachment = "d:\projects\vfp1\email\test.txt"
>
>
>oSession = CREATEOBJECT("MSMAPI.MAPISession")
>oMessages = CREATEOBJECT("MSMAPI.MAPIMessages")
>
>WITH oSession
>  .DownLoadMail = .T. 								
>  .LogonUI= .F.
>  .UserName = cLoginName
>  .Password = cPassword
>  .SignOn()
>ENDWITH
>
>
>oMessages.SessionID = oSession.SessionID
>oMessages.Compose()
>oMessages.RecipAddress = cRecipient
>oMessages.MsgSubject = cSubject
>oMessages.MsgNoteText = cBody
>oMessages.Send(.T.)
>