ExcelBanter - 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