N
Nicola Attico
Hi,
I'm using this vbscript code in order to send an e-mail message with
Outlook 2003
It works fine sending messages to a specific recipient
(e-mail address removed)
My problem is that I want to send a message to an EXCHANGE
distribution list and the ResolveAll method doesn't seem able to do
that
I tried putting LIST or (e-mail address removed) but the message stay in my
Draft folder and I get the error pop-up:
"Could not resolve the message recipients"
I'm able to resolve LIST from my Outlook client instead
Thanks,
Nicola Attico
**********
Dim rMail
Dim oItem
Dim ns
Dim Sync
Set rMail = CreateObject("Redemption.SafeMailItem")
set Application = CreateObject("Outlook.Application")
set NS = Application.GetNamespace("MAPI")
NS.Logon
Set oItem = Application.CreateItem(0)
rMail.Item = oItem
rmail.recipients.Add "(e-mail address removed)"
rmail.recipients.ResolveAll
strmessage = "test"
strsubject = ("scusate, è una prova di invio mail ad una lista di
distribuzione Exchange per un prospect..")
rmail.subject = strsubject
rmail.body = strmessage
rmail.Send
Set Sync = ns.SyncObjects.Item(1)
Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow
I'm using this vbscript code in order to send an e-mail message with
Outlook 2003
It works fine sending messages to a specific recipient
(e-mail address removed)
My problem is that I want to send a message to an EXCHANGE
distribution list and the ResolveAll method doesn't seem able to do
that
I tried putting LIST or (e-mail address removed) but the message stay in my
Draft folder and I get the error pop-up:
"Could not resolve the message recipients"
I'm able to resolve LIST from my Outlook client instead
Thanks,
Nicola Attico
**********
Dim rMail
Dim oItem
Dim ns
Dim Sync
Set rMail = CreateObject("Redemption.SafeMailItem")
set Application = CreateObject("Outlook.Application")
set NS = Application.GetNamespace("MAPI")
NS.Logon
Set oItem = Application.CreateItem(0)
rMail.Item = oItem
rmail.recipients.Add "(e-mail address removed)"
rmail.recipients.ResolveAll
strmessage = "test"
strsubject = ("scusate, è una prova di invio mail ad una lista di
distribuzione Exchange per un prospect..")
rmail.subject = strsubject
rmail.body = strmessage
rmail.Send
Set Sync = ns.SyncObjects.Item(1)
Set Utils = CreateObject("Redemption.MAPIUtils")
Utils.DeliverNow