I'm attempting to create VBA to email (in the BCC field) a string of email addresses. Each email can be found in cells AT7:AT107
I'd also like to include the email signature into the VBA but have little idea how to do this.
I'd also like to include the email signature into the VBA but have little idea how to do this.
VBA Code:
Sub EmailJuniors()
Dim OutApp As Object
Dim OutMail As Object
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
' .To = Range("??")
' .CC = Range("??")
.BCC = Join(Application.Transpose(.Range("AT7:AT107").Value), ";") & ";"
.Subject = Range("AP3")
.Body = Range("AO2") & vbLf & _
"" & vbLf & _
.Display
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub