Hi Mark!
The simple and easiest way to add reciept is just increase the recip index...
Eg.:
...
...
...
.RecipIndex = 0 &&'First recipient
.RecipType = RECIPTYPE_TO &&'Recipient IN TO LINE
.RecipDisplayName = "SZOPADware" &&'e-mail name
.RecipAddress = "
szopadware@neda.gov.ph"
.RecipIndex = 1 &&'2nd recipient
.RecipType = RECIPTYPE_TO &&'Recipient IN TO LINE
.RecipDisplayName = "MISU" &&'e-mail name
.RecipAddress = "
misu@neda.gov.ph"
.RecipIndex = 2 &&'3rd recipient
.RecipType = RECIPTYPE_TO &&'Recipient IN TO LINE
.RecipDisplayName = "JOE MAMOKAN" &&'e-mail name
.RecipAddress = "
ismamokan@neda.gov.ph"
...
...
...
***************************************
>Hi Ismael
>This section of Code Looks Good & works well.
>I have a small question.
>I see here that you have one Receipiant in the TO Section & one Receipiant in >the CC Section, How can you specify more than one receipiant in the TO Section
>I have tried using
>RecipAddress = "JoeBloggs@hotmail.com;JoeSoap@hotmail.com"
>Unfortunately With No Success
>Incidently I am using Outlook Express
>
>Thanks
>Mark
>Hi Andy!
>
>This code was extracted from my previous program...
>
>Hope this will help you...
>
>*********************************************
>#define MAILITEM 0
>#define IMPORTANCELOW 0
>#define IMPORTANCENORMAL 1
>#define IMPORTANCEHIGH 2
>#define SESSION_SIGNON 1
>#define MESSAGE_COMPOSE 6
>#define ATTACHTYPE_DATA 0
>#define RECIPTYPE_TO 1
>#define RECIPTYPE_CC 2
>#define MESSAGE_RESOLVENAME 13
>#define MESSAGE_SEND 3
>#define SESSION_SIGNOFF 2
>********************************************************************************oSession = createobject("MSMapi.MapiSession")
>oSession.logonui = .t.
>oSession.signon
>omessage = createobject("MSMapi.MapiMessages")
>with omessage
> .sessionid =oSession.sessionid
> .MsgIndex = -1 && Create New
> .Compose
> .msgsubject = "Updated Data from Region 9"
> .msgnotetext="Submitting here attached the latest update from our database..."
> .RecipIndex = 0 &&'First recipient
> .RecipType = RECIPTYPE_TO &&'Recipient IN TO LINE
> .RecipDisplayName = "SZOPADware" &&'e-mail name
> .RecipAddress = "
szopadware@neda.gov.ph"
>
> .RecipIndex = 1 &&'First recipient
> .RecipType = RECIPTYPE_CC &&'Recipient IN TO LINE
> .RecipDisplayName = "MIS Unit" &&'e-mail name
> .RecipAddress = "
misu@microweb.com.ph"
>
> .AttachmentIndex = 0
> .AttachmentPathName = "C:\SZOPADware\UPLOAD\02212001.ZIP"
> .send( 1 ) && 0/1= whether to show UI.
>endwith
>release oSession, omessage