Prev: Simple hack to get $500 to your home
Next: CDO or Mapi for searching mailbox, sending mail
From: OldDog on 14 Jun 2010 10:25
On Jun 12, 4:21 pm, Gene. <G...(a)discussions.microsoft.com> wrote:
> It is a different issue now if you noticed.
> Please let me know if you could help with this issue. I am at the end of the
> task and problem with cumbersome attachments may negate whole effort.
>
>
>
> "Pegasus [MVP]" wrote:
>
> > "Gene." <G...(a)discussions.microsoft.com> wrote in message
> >news:C426B8D6-6495-44FB-B022-DBED30148C8C(a)microsoft.com...
> > > Sorry which process from which thread?
>
> > The one you posted in this newsgroup three days ago under the heading
> > "Cannot send mail from VB Scripts". You replied "All works now.
> > It had to specify different mail server - not the one I had in a profile.".
> > Remember?
>
> > .- Hide quoted text -
>
> - Show quoted text -

See if any of this helps:

adminmail = "somebody(a)somewhere.com"
'
smtp = "mail_server name or IP"
Set mailing = CreateObject("CDO.Message")
Set wshNet = CreateObject("WScript.Network")

mailing.From = ("fromSomeone(a)somewhere.com")
mailing.To = adminmail
mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/sendusing") = 2
mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/smtpserver") = smtp
mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
configuration/smtpserverport") = 25
mailing.Subject = header & "Data Transfer Success logs"
sFullProductionMessage = "See attached file..." & vbcrlf
mailing.TextBody = sFullProductionMessage
mailing.Configuration.Fields.Update
mailing.AddAttachment "R:\dailylog.txt"
mailing.Send
On Error Goto 0
From: Gene. on 14 Jun 2010 11:49
Hello OldDog,

whole task of this program is:
1. locate message by: sender, string in subject
2. create 'reply all' message
a. add additional message to existing body
b. add attachments
c. send mail

How it can be coded by using CDO.Message object?




"OldDog" wrote:

> On Jun 12, 4:21 pm, Gene. <G...(a)discussions.microsoft.com> wrote:
> > It is a different issue now if you noticed.
> > Please let me know if you could help with this issue. I am at the end of the
> > task and problem with cumbersome attachments may negate whole effort.
> >
> >
> >
> > "Pegasus [MVP]" wrote:
> >
> > > "Gene." <G...(a)discussions.microsoft.com> wrote in message
> > >news:C426B8D6-6495-44FB-B022-DBED30148C8C(a)microsoft.com...
> > > > Sorry which process from which thread?
> >
> > > The one you posted in this newsgroup three days ago under the heading
> > > "Cannot send mail from VB Scripts". You replied "All works now.
> > > It had to specify different mail server - not the one I had in a profile.".
> > > Remember?
> >
> > > .- Hide quoted text -
> >
> > - Show quoted text -
>
> See if any of this helps:
>
> adminmail = "somebody(a)somewhere.com"
> '
> smtp = "mail_server name or IP"
> Set mailing = CreateObject("CDO.Message")
> Set wshNet = CreateObject("WScript.Network")
>
> mailing.From = ("fromSomeone(a)somewhere.com")
> mailing.To = adminmail
> mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
> configuration/sendusing") = 2
> mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
> configuration/smtpserver") = smtp
> mailing.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/
> configuration/smtpserverport") = 25
> mailing.Subject = header & "Data Transfer Success logs"
> sFullProductionMessage = "See attached file..." & vbcrlf
> mailing.TextBody = sFullProductionMessage
> mailing.Configuration.Fields.Update
> mailing.AddAttachment "R:\dailylog.txt"
> mailing.Send
> On Error Goto 0
> .
>
First  |  Prev  | 
Pages: 1 2
Prev: Simple hack to get $500 to your home
Next: CDO or Mapi for searching mailbox, sending mail