#DEFINE cnRecipientTypeTO 1 #DEFINE cnRecipientTypeCC 2 #DEFINE cnRecipientTypeBCC 3 DIMENSION laRecipients[3, 2] laRecipients[1, 1] = "James.Bond@spy.com" laRecipients[1, 2] = cnRecipientTypeTO laRecipients[2, 1] = "SomeoneElse@email.com" laRecipients[2, 2] = cnRecipientTypeCC laRecipients[3, 1] = "SomeoneHidden@somewhere.com" laRecipients[3, 2] = cnRecipientTypeBCC WITH this.parent.OleMMess .compose .msgnotetext = "Message Text" .msgsubject = "Secret Message" *-- Create the recipients. FOR i = 1 TO lnRecipients .RecipIndex = .RecipCount .RecipDisplayName = laRecipients[i, 1] .RecipType = laRecipients[i, 2] && To: CC: or BCC: .RecipAddress = "" .ResolveName() ENDFOR IF tlShowDialog *-- show e-mail message this.parent.OleMMess.Send(1) ELSE *-- unattended mode this.parent.OleMMess.Send() ENDIF ENDWITH>Thanks, that worked great! Another question. How can I send the email to more that 1 person?
>> >>this.parent.OleMMess.compose >>this.parent.OleMMess.msgnotetext = "Message Text" >>this.parent.OleMMess.msgsubject = "Secret Message" >> >>this.parent.OleMMess.RecipDisplayName = "james.bond@spy.com" >>this.parent.OleMMess.RecipType = 1 >>this.parent.OleMMess.ResolveName() >> >>IF tlShowDialog >> *-- show e-mail message >> this.parent.OleMMess.Send(1) >>ELSE >> *-- unattended mode >> this.parent.OleMMess.Send() >>ENDIF >>>>
>>>this.parent.OleMMess.compose >>>this.parent.OleMMess.msgnotetext="My message" >>>this.parent.OleMMess.msgsubject = "My subject" >>>this.parent.OleMMess.send(1) >>>>>>