P
PAG
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 "(e-mail address removed)", _
"Interfund Trade Accrued Interest"
On Error GoTo 0
End Sub
Thank you,
Peter
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 "(e-mail address removed)", _
"Interfund Trade Accrued Interest"
On Error GoTo 0
End Sub
Thank you,
Peter