Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code to email active work book
Hi,
Is there some VBA code that I can use to be able to add text "Please provide the accrued interest on the attached interfund trades. Thank you" to the body of my email? Dim wb As Workbook Set wb = ActiveWorkbook If Val(Application.Version) = 12 Then If wb.FileFormat = 51 And wb.HasVBProject = True Then MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _ "be no VBA code in the file you send. Save the" & vbNewLine & _ "file first as xlsm and then try the macro again.", vbInformation Exit Sub End If End If On Error Resume Next wb.SendMail ", _ "Interfund Trade Accrued Interest" On Error GoTo 0 End Sub Thank you, Peter |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA code to email active work book
On May 19, 1:11*pm, PAG wrote:
Hi, Is there some VBA code that I can use to be able to add text "Please provide the accrued interest on the attached interfund trades. Thank you" to the body of my email? Dim wb As Workbook * * Set wb = ActiveWorkbook * * If Val(Application.Version) = 12 Then * * * * If wb.FileFormat = 51 And wb.HasVBProject = True Then * * * * * * MsgBox "There is VBA code in this xlsx file, there will" & vbNewLine & _ * * * * * * * * * *"be no VBA code in the file you send. Save the" & vbNewLine & _ * * * * * * * * * *"file first as xlsm and then try the macro again.", vbInformation * * * * * * Exit Sub * * * * End If * * End If * * On Error Resume Next * * wb.SendMail ", _ * * * * * * * * "Interfund Trade Accrued Interest" * * On Error GoTo 0 * End Sub Thank you, Peter With SendMail it is not possible to add text to the body of the email. However, if you use CDO instead, you could do that. Below is a simple example of doing this - adding an attachment and putting text in the body of the email. Watch for word-wrap. Jennifer Dim wshnet Dim compname Set wshnet = CreateObject("wscript.network") compname = wshnet.computername Set iConf = CreateObject("CDO.Configuration") Set iMsg = CreateObject("CDO.Message") iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/ smtpserver") = "mail" '"dev.smtp.wbhq.com" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/ smtpport") = 25 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/ sendusing") = 2 iConf.Fields.Update iMsg.Configuration = iConf iMsg.From = " iMsg.To = " imsg.AddAttachment "C:\test.txt" iMsg.Subject = "subject" iMsg.TextBody = "this is a test" iMsg.Send |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Email work book. | Excel Discussion (Misc queries) | |||
How do I email one sheet from within an excell work book file | Excel Worksheet Functions | |||
Work book event code help (re Bob Phillips) | Excel Programming | |||
searching by number or code ina work book | Excel Discussion (Misc queries) | |||
Please Help!!! How Do I Specify A particualr work book to execute code on | Excel Programming |