Produce Email and save

Anonymous — Thu, 11 May 2017 14:24:32 GMT

Hi guys,

I have a piece of code that takes a report i've exported, creates a generic e-mail, attaches the report and waits for me to send the e-mail in Outlook.

If i'm producing multiple reports this soon becomes overwhelming so let me ask you - is there any way to save this e-mail rather than displaying it?

Check out my code below:

Sub Emailtest

Recipient = "Test"

CC = "Test_CC"

Company_Name = "CompanyTest"

ReportTitle = "TitleTest"

ExportFilePath = "H:\test.xlsx"

'----------------------------------------------------------

'Create e-mail body in HTML

EmailBody = "" &_

"Hi there Please find attached the " & ReportTitle & " " &_

" as per schedule. Hope its okay! "

'----------------------------------------------------------

'Setup the e-mail

Set myApp = CreateObject ("Outlook.Application")

Set myMessage = myApp.CreateItem(olMailItem)

myMessage.body = ("EmailBody")

myMessage.HTMLBODY = EmailBody

myMessage.BodyFormat = 2 'HTMLFormat

myMessage.To = Recipient

myMessage.CC = CC

myMessage.Subject = Report_Title

myMessage.Attachments.Add(ExportFilePath)

Set myInspector = myMessage.GetInspector 'add signature to e-mail

Set myDoc = myInspector.WordEditor

myMessage.Display

Set myMessage = Nothing

Set myApp = Nothing

Set myInspector = Nothing

Set myDoc = Nothing

End sub

Re: Produce Email and save

tamilarasu — Thu, 11 May 2017 15:06:07 GMT

Hi Paul,

Here you go.

Sub Emailtest

Recipient = "Test"

CC = "Test_CC"

Company_Name = "CompanyTest"

ReportTitle = "TitleTest"

ExportFilePath = "C:\Users\Tamilarasu.Nagaraj\Desktop\Philpp\Sheet Wild card.xlsx"

'----------------------------------------------------------

'Create e-mail body in HTML

EmailBody = "" &_

"Hi there Please find attached the " & ReportTitle & " " &_

" as per schedule. Hope its okay! "

'----------------------------------------------------------

'Setup the e-mail

Set myApp = CreateObject ("Outlook.Application")

Set myMessage = myApp.CreateItem(olMailItem)

myMessage.body = ("EmailBody")

myMessage.HTMLBODY = EmailBody

myMessage.BodyFormat = 2 'HTMLFormat

myMessage.To = Recipient

myMessage.CC = CC

myMessage.Subject = ReportTitle

myMessage.Attachments.Add(ExportFilePath)

Set myInspector = myMessage.GetInspector 'add signature to e-mail

Set myDoc = myInspector.WordEditor

myMessage.Display 'Comment this line if you don't want to see outlook draft window

myMessage.Save

myMessage.Close olPromtForSave

Set myMessage = Nothing

Set myApp = Nothing

Set myInspector = Nothing

Set myDoc = Nothing

End sub

topic Produce Email and save in QlikView

Produce Email and save

Re: Produce Email and save