Outlook 2003 - Read Recipients

[Renato Jr/TX Informatica]

Hi all,

I created one script on the INBOX folder to get some information about
message and then send this to my mobile phone through SMS Provider.

I need to know what was the RECIPIENT(S) of this massage! Only to me? To me
and another guy?

How to do that????

tks,

Renato Jr

* Here is my code:
----------------------

Const CdoPR_SENT_REPRESENTING_ENTRYID = &H410102 'Address Entry
Identifier of the represented sender
Const CdoPR_SENT_REPRESENTING_NAME = &H42001E 'Display Name
of the represented sender
Const CdoPR_RCVD_REPRESENTING_ENTRYID = &H430102 'Address Entry
Identifier of the represented receiver
Const CdoPR_RCVD_REPRESENTING_NAME = &H44001E 'Display Name
of the represented receiver

'#################
'SETANDO VARIAVEIS
'#################
Dim oMsg
Dim MessageSubject
Dim Remetente
Dim RemetenteEmail

'#####################################
'OBTENDO IDENTIFICAÇÃO DA MSG RECEBIDA
'#####################################
Set oMsg =
EventDetails.Session.GetMessage(EventDetails.MessageID,Null)

'#######################
'VALIDANDO CAMPO ASSUNTO
'#######################
IF oMsg.Subject <> "" THEN
MessageSubject = oMsg.Subject
ELSE
MessageSubject = "sem assunto"
END IF



Remetente = CStr(oMsg.Sender.Name)

Dim sxh
set sxh = CreateObject("MSXML2.XMLHTTP.3.0")
'sxh.open
"POST","http://system.human.com.br:8080/GatewayIntegration/msgSms.do?dispatch=send&account=XXX&code=XXXXmsg="
& Remetente & "&from=XXXX&to=55519XXXXXXX",false
sxh.send
set sxh = nothing

 

[Ken Slovak - [MVP - Outlook]]

You can get the Recipients collection of the item or you can read the
PT_STRING8 text properties PR_DISPLAY_TO (0x0E04001E) and PR_DISPLAY_CC
(0x0E03001E) and PR_DISPLAY_BCC (0x0E02001E). Of course on a received
message the Bcc information will always be blank.