I have created a macro that I have been using for a few years now, but I never figured out how to add body to the message. I'd like to add body to the emails. I see in the Eudora (yes, I use Eudora) library that there is Body, Bodyastext, etc. I tried adding Body:="blah blah" to the sendemail line, but when I compile, it's saying the argument is not found.
Here's the code I'm using withhout body:
Public Sub EMAIL_STATEMENTS()
load_v
load_globals
Dim indx As Integer
For indx = 1 To UBound(v)
If v(indx).email <> "" Then
Workbooks.Open Filename:=statementpathname & filenameextension & "\" & v(indx).name & filenameextension & ".xls", ReadOnly:=True
'Sheets("statement").Activate
ActiveWorkbook.SendMail Recipients:=v(indx).email, Subject:="RealArcade/GH Statement" & " " & filenameextension & " " & v(indx).name
ActiveWorkbook.Close savechanges:=False
End If
Next indx
End Sub
Any suggestions?
Thanks!
Here's the code I'm using withhout body:
Public Sub EMAIL_STATEMENTS()
load_v
load_globals
Dim indx As Integer
For indx = 1 To UBound(v)
If v(indx).email <> "" Then
Workbooks.Open Filename:=statementpathname & filenameextension & "\" & v(indx).name & filenameextension & ".xls", ReadOnly:=True
'Sheets("statement").Activate
ActiveWorkbook.SendMail Recipients:=v(indx).email, Subject:="RealArcade/GH Statement" & " " & filenameextension & " " & v(indx).name
ActiveWorkbook.Close savechanges:=False
End If
Next indx
End Sub
Any suggestions?
Thanks!