e-mail my self from a vbs script

Rich75 · Aug 21, 2003

Hi just wondered if any one can help

i have a backup job that rights out to a text file
i want to automate the notifiction by looking at the text file and picking out the relavent text and then emailing myself with the collected text string

the collection of the data is not a problem but i am a bit stuck on the email part

any ideas

thanks

Rich

mapman04 · Aug 21, 2003

Here's part of a script that I use to accomplish a similar task. This code uses CDO to send an e-mail with an attachment. You must have Outlook on the system that sends the e-mail.

Regards,

Mapman04

=====

Dim sTo,strLoc,strFname,strSubject,strText,oSession,oMessage,oAttachment,oRecipient

'Sending to home e-mail address

sTo="SMTP:someone@somewhere.com"
strLoc = "X:\Data\DayLog.txt"
strFname = "DayLog.txt"
strSubject = "Nightly Process Check: " & strFname
strText = "The automated audit process was successful!" & vbCr & vbCr & _
"Please review the attached file!" & vbCr & vbCr & _
"This messages was generated by a vbScript at: " & Now() & vbCr & vbCr & "System Admin"
set oSession=CreateObject("MAPI.Session&quot

oSession.Logon "User"
set oMessage=oSession.Outbox.Messages.Add(strSubject,strText)
set oAttachment=oMessage.Attachments.Add(strFname,,,strLoc)
set oRecipient=oMessage.Recipients.Add(,sTo)
oRecipient.Resolve
oMessage.Send
oSession.Logoff
set oSession=nothing

Rich75 · Aug 21, 2003

Brilliant thanks for that

however i have a little problem still becuase it is trying to create a new mapi profile i keep on getting the promt on what exchange settings i want to use....

how did you get round this ?

mapman04 · Aug 21, 2003

I have a valid profile on the PC that the script runs on. Change the "user" to a valid profile name. Outlook does not have to be running. I run it from a NT 4.0 Workstation using Outlook 2000 and my mail server is Exchange 5.5 and I have domain admin rights.

Hope this helps.

Mapman04

mrmovie · Aug 22, 2003

do you have an smtp server available??

Function smtp(ByVal cTo, ByVal cSubject, ByVal cBody)

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSubject
Dim strFrom
Dim strAttachment

set imsg = createobject("cdo.message&quot

set iconf = createobject("cdo.configuration&quot

Set Flds = iConf.Fields
With Flds
.Item("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Item("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "smtp.mail.somewhere.com" 'ToDo: Type a valid SMTP server name.
.Update
End With

strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> " & cSubject & cBody &"</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
strSubject = "subject"
strFrom = cFrom & "@somwhere.com"

With iMsg
Set .Configuration = iConf
.To = "websms@blaa.com"
.From = "hmm@sm.com"
.Subject = strSubject
.HTMLBody = strHTML
.Send
End With

set imsg = Nothing
set iconf = Nothing

End Function

ShadowFox333 · Aug 22, 2003

This is outlook using mapi.
Enjoy Bob

Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail
ToAddress = "name@email.co"
MessageSubject = "Garden Stuff"
MessageBody = "Here are your stuff for 08-22-2003"
MessageAttachment = "Y:\folder\folder\A0005.txt"
Set ol = WScript.CreateObject("Outlook.Application&quot

Set ns = ol.getNamespace("MAPI&quot

Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

e-mail my self from a vbs script

Rich75

Technical User

mapman04

IS-IT--Management

Rich75

Technical User

mapman04

IS-IT--Management

mrmovie

Technical User

ShadowFox333

Programmer

Similar threads

Part and Inventory Search

Sponsor