J
jason
I'm using:
Public Function EMail_MCubed()
If ActiveCell.Value = "M-Cubed" Then
Dim myAction As String
Call OpenOutlookApp 'this call will instantiate outlook
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = "Confirmation of " & ActiveCell(1, 0) & " deal"
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.Body = "Dear Sir/Madam," & vbCrLf & vbCr & _
"Policy: " & ActiveCell(1, 0) & vbCr & _
"Action: " & myAction & vbCr & _
"Fund: " & ActiveCell(1, 9) & vbCrLf & vbCr & _
"Kind Regards," & vbCr & _
"Scottish Prudential"
.Display
End With
On Error Resume Next
OutApp.ActiveInspector.WindowState = 2
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Function
HOW CAN I MAKE IT SO THAT THE LAST LINE OF THE BODY "Scottish Prudential" IS BOLD?
Any help greatly appreciated
Jason
Public Function EMail_MCubed()
If ActiveCell.Value = "M-Cubed" Then
Dim myAction As String
Call OpenOutlookApp 'this call will instantiate outlook
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = "Confirmation of " & ActiveCell(1, 0) & " deal"
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.Body = "Dear Sir/Madam," & vbCrLf & vbCr & _
"Policy: " & ActiveCell(1, 0) & vbCr & _
"Action: " & myAction & vbCr & _
"Fund: " & ActiveCell(1, 9) & vbCrLf & vbCr & _
"Kind Regards," & vbCr & _
"Scottish Prudential"
.Display
End With
On Error Resume Next
OutApp.ActiveInspector.WindowState = 2
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Function
HOW CAN I MAKE IT SO THAT THE LAST LINE OF THE BODY "Scottish Prudential" IS BOLD?
Any help greatly appreciated
Jason