Quantcast
Channel: Adobe Community: Message List
Viewing all articles
Browse latest Browse all 87055

Re: Can you attach a select file into a mail in “Outlook” then send to a specify address?

$
0
0

myVBS = '''Dim ToAddress 

Dim FromAddress 

Dim MessageSubject 

Dim MessageBody 

Dim MessageAttachment 

Dim ol, ns, newMail 

ToAddress = "''' + ToAddress + '''" 

MessageSubject = "''' + MessageSubject + '''" 

MessageBody = "''' + MessageBody + '''" 

MessageAttachment = "''' + MessageAttachment + '''" 

Set ol = CreateObject("Outlook.Application") 

Set ns = ol.getNamespace("MAPI") 

Set newMail = ol.CreateItem(olMailItem) 

newMail.Subject = MessageSubject 

newMail.Body = MessageBody & vbCrLf 

newMail.RecipIents.Add(ToAddress) 

newMail.Attachments.Add(MessageAttachment) 

newMail.Send 

 

 

How can I add a function to send my select files?


Viewing all articles
Browse latest Browse all 87055

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>