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!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
vbscript to send e-mail 2
- Thread starter KimVong
- Start date
Here's a piece of code I use to send an e-mail with a file attachment. It requires Outlook. Hope this helps!
mapman04
========= Code ===========
Dim sTo,strLoc,strFname,strSubject,strText,oSession,oMessage,oAttachment,oRecipient
'Sending to recipients
sTo="SMTP:user@somedomain.com"
strLoc = "C:\"
strFname = "A_File.txt"
strSubject = "Here is the file: " & strFname
strText = "The automated processing was successful!" & vbCr & vbCr & _
"Please review the attached file!" & vbCr & vbCr & _
"This messages was generated by a vbScript at: " & Now()
set oSession=CreateObject("MAPI.Session"
oSession.Logon "UserProfile"
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
mapman04
========= Code ===========
Dim sTo,strLoc,strFname,strSubject,strText,oSession,oMessage,oAttachment,oRecipient
'Sending to recipients
sTo="SMTP:user@somedomain.com"
strLoc = "C:\"
strFname = "A_File.txt"
strSubject = "Here is the file: " & strFname
strText = "The automated processing was successful!" & vbCr & vbCr & _
"Please review the attached file!" & vbCr & vbCr & _
"This messages was generated by a vbScript at: " & Now()
set oSession=CreateObject("MAPI.Session"
oSession.Logon "UserProfile"
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
-
1
- #5
save this as a .vbs file:
strHTML="<html><head></head><body>Testing...One...Two...Three</body></html>"
Set objMail = CreateObject("CDO.Message"
With objMail
.To = "them@abc.com"
.CC = "him@def.com"
.From = "you@ghi.com"
.Subject = "CDO Mail Test"
'.CreateMHTMLBody " **Un-comment this to send a web page**
.HTMLBody=strHTML
.Send
End With
Set objMail = Nothing
msgbox "Mail Sent"
strHTML="<html><head></head><body>Testing...One...Two...Three</body></html>"
Set objMail = CreateObject("CDO.Message"
With objMail
.To = "them@abc.com"
.CC = "him@def.com"
.From = "you@ghi.com"
.Subject = "CDO Mail Test"
'.CreateMHTMLBody " **Un-comment this to send a web page**
.HTMLBody=strHTML
.Send
End With
Set objMail = Nothing
msgbox "Mail Sent"
-
1
- Thread starter
- #6
Veep
I really like the coding you have above, and I tried and it work. I would like to ask you something,
I have a message body of about 10 lines. Do I have to put all of them on the top like you did for testing one .. two...three?
and how do I do that?
thanks
kv
I really like the coding you have above, and I tried and it work. I would like to ask you something,
I have a message body of about 10 lines. Do I have to put all of them on the top like you did for testing one .. two...three?
and how do I do that?
thanks
kv
I'm not really sure what you're asking. You could replace the html with a text body like this:
With objMail
.To = "them@abc.com"
.CC = "him@def.com"
.From = "you@ghi.com"
.Subject = "CDO Mail Test"
.TextBody="Hello There" & vbcrlf & "How is the weather today?" _
& vbcrlf & "Got to go now"
.Send
End With
Or just assign all of your text to a variable.
With objMail
.To = "them@abc.com"
.CC = "him@def.com"
.From = "you@ghi.com"
.Subject = "CDO Mail Test"
.TextBody="Hello There" & vbcrlf & "How is the weather today?" _
& vbcrlf & "Got to go now"
.Send
End With
Or just assign all of your text to a variable.
- Thread starter
- #8
ShadowFox333
Programmer
Here is a script I generate in a cobol program.
The script body is client variable and it attaches an excel
Spread sheet. The script runs outlook via MAPI.
Enjoy Bob
Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim Body1
Dim MessageAttachment
Dim ol, ns, newMail
Dim Body2
Dim Body3
Dim Body4
Dim Body5
Dim Body6
Dim Body7
Dim Body8
Dim Body9
Dim Body10
ToAddress = "admin@somewhere.com"
MessageSubject = "Magazine Sales Leads For you"
BODY1 = "TO: ME "
BODY2 = "COMAPNY NAME "
BODY3 = "11114 MAIN ST "
BODY4 = "GULFPORT, MS 39503 "
BODY5 = "From: MY Magazine Phone: 999-555-5601"
BODY6 = "24 MAIN STREET fax: 999-555-5640"
BODY7 = "Suite 99"
BODY8 = "Lambert, NJ 08530"
BODY10 = "This file can be opened with Microsoft Excel"
MessageBody = "Here are your leads for 06-16-2004"
MessageAttachment = "Y:\FOLDER\FOLDER\00110.XLS"
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = BodY1 & vbCrLf & BODY2 & VBCRLF & BODY3 & VBCRLF & BODY4 & VBCRLF & vbcrlf & BODY5 & VBCRLF & BODY6 & vbcrlf & body7 & vbcrlf & body8 & vbcrlf & vbcrlf & Messagebody & vbcrlf & body10 & vbcrlf & vbcrlf
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send
SET OL = NOTHING
SET NS = NOTHING
SET NEWMAIL = NOTHING
The script body is client variable and it attaches an excel
Spread sheet. The script runs outlook via MAPI.
Enjoy Bob
Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim Body1
Dim MessageAttachment
Dim ol, ns, newMail
Dim Body2
Dim Body3
Dim Body4
Dim Body5
Dim Body6
Dim Body7
Dim Body8
Dim Body9
Dim Body10
ToAddress = "admin@somewhere.com"
MessageSubject = "Magazine Sales Leads For you"
BODY1 = "TO: ME "
BODY2 = "COMAPNY NAME "
BODY3 = "11114 MAIN ST "
BODY4 = "GULFPORT, MS 39503 "
BODY5 = "From: MY Magazine Phone: 999-555-5601"
BODY6 = "24 MAIN STREET fax: 999-555-5640"
BODY7 = "Suite 99"
BODY8 = "Lambert, NJ 08530"
BODY10 = "This file can be opened with Microsoft Excel"
MessageBody = "Here are your leads for 06-16-2004"
MessageAttachment = "Y:\FOLDER\FOLDER\00110.XLS"
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = BodY1 & vbCrLf & BODY2 & VBCRLF & BODY3 & VBCRLF & BODY4 & VBCRLF & vbcrlf & BODY5 & VBCRLF & BODY6 & vbcrlf & body7 & vbcrlf & body8 & vbcrlf & vbcrlf & Messagebody & vbcrlf & body10 & vbcrlf & vbcrlf
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send
SET OL = NOTHING
SET NS = NOTHING
SET NEWMAIL = NOTHING
- Status
Similar threads
- Locked
- Question