Re: need help with this send mail script
From: Ricky (newsgroupsmail_at_gmail.com)
Date: 01/08/05
- Next message: Jeff Young: "Exchange setup for development"
- Previous message: Jim: "Re: IMailbox interface fails using CDO for Exchange"
- In reply to: Glen Scales [MVP]: "Re: need help with this send mail script"
- Messages sorted by: [ date ] [ thread ]
Date: Sat, 8 Jan 2005 22:33:48 -0000
Hi
Thanks for the tip... I'll try it and tell if it works..
Thanks
Nuno
"Glen Scales [MVP]" <gscales@outlookexchange.com> wrote in message
news:OAd$xeh8EHA.1396@tk2msftngp13.phx.gbl...
> You can only have one value for the sender (eg the sending email address
of
> the sender "By convention (RFC 822), multiple addresses are not identified
> in the Sender property". ) so you may want to consider creating 3 separate
> scripts or a least 3 different message objects within your script. You
also
> need to use a configuration object to specify which server you want to
send
> it through. eg
>
> Set objMessage = CreateObject("CDO.Message")
> objMessage.Subject = "Testing incoming / outgoing domain email"
> objMessage.From = "exchangeServer_1@helpme.com"
> objMessage.To = "whoever@helpme.com"
> objMessage.TextBody = "Email Test"
>
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/sendusing")
> = 2
>
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserver")
> = "servername"
>
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/confi
guration/smtpserverport")
> = 25
> objMessage.Configuration.Fields.Update
> objMessage.Send
>
> Cheers
> Glen
>
>
>
> "Nuno" <nop51639@mail.telepac.pt> wrote in message
> news:eWHeqbf7EHA.3840@tk2msftngp13.phx.gbl...
> > Hi There,
> >
> > I've write the script bellow that should send a email from 3 Exchange
> > Servers and 1 email account from outside the domain
> > at the same time. The purpose of this script is to check if the Exchange
> > Servers are receiving and sending emails to and outside the domain with
no
> > problems. So we could answer faster until the users call us with this
kind
> > of problems.
> >
> > Can someone help me?...
> >
> > Thanks
> > Nuno
> >
> >
> > Set objMessage = CreateObject("CDO.Message")
> > objMessage.Subject = "Testing incoming / outgoing domain email"
> > objMessage.Sender = "exchangeServer_1@helpme.com;
> > exchangeServer_2@helpme.com; exchangeServer_3@helpme.com;
> > externalEmailAccount@givemeatip.com"
> > objMessage.To = "exchangeServer_1@helpme.com;
exchangeServer_2@helpme.com;
> > exchangeServer_3@helpme.com; externalEmailAccount@givemeatip.com"
> > objMessage.TextBody = "Email Test"
> > objMessage.Send
> >
> >
> >
> >
>
>
- Next message: Jeff Young: "Exchange setup for development"
- Previous message: Jim: "Re: IMailbox interface fails using CDO for Exchange"
- In reply to: Glen Scales [MVP]: "Re: need help with this send mail script"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|