send email

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

send email

Logged in as: Guest

arrSession:exec spGetSession 2,16,26912

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> send email
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

send email - 10/13/2005 8:25:02 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

Edited, see the comments.

sendEmail "me@toyou.com", "user@somecorp.com", "hi", "testing", "c:\temp\XF86Config"
 
 
 Sub sendEmail(sentfrom, sendto, subject, textBody, attachment)
     Set objMessage = CreateObject("CDO.Message")
     objMessage.Subject = subject
     objMessage.Sender = sentfrom
     objMessage.To = sendTo
     objMessage.Cc = SendToCC
     objMessage.TextBody = TextBody
     objMessage.AddAttachment Attachment 'attach the output file
     'objMessage.AddAttachment outputAttachment1 'attach the no acct file
 
     '==This section provides the configuration information for the remote SMTP server.
     '==Normally you will only change the server name or IP.
 
     objMessage.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     
   'make sure you change this to your own smtp server
     'Name Or IP of Remote SMTP Server
     objMessage.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.somewhere.com"
 
     'Server port (typically 25)
     objMessage.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
     objMessage.Configuration.Fields.Update
 
     '==End remote SMTP server configuration section==
 
     objMessage.Send
 
     WScript.Echo "Email Sent"
 End sub 'sendEmail