Have mail list use concatenated cell from a worksheet to populate generated email

[FisherKat]

I've implemented the below VBA to use to send the form that it is for to a specifc emai address, but would like the VBA to populate the "SUBJECT LINE" of the email it generates with a concatenated cell from the workbook. The cell is identified as AM11. Is this even possible?

Sub SendWorkBook()
'Update 20181017
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
.To = "***.email.com"
.CC = ""
.BCC = ""
.Subject = "AM11"
.Body = "Hello," & vbNewLine & vbNewLine & "This DAF is being submitted for processing." & vbNewLine & vbNewLine & "Thank You!"
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub


Thanks for any suggestions that you may have!!

 

[mrshl9898]

How's this? Just update the sheet name that has AM11

Sub SendWorkBook()


'Update 20181017
Dim mystr As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)


mystr = Sheets("entersheetname").Range("AM11").Value 'change sheet name
On Error Resume Next
With OutlookMail
.To = "***.email.com"
.CC = ""
.BCC = ""
.Subject = mystr
.Body = "Hello," & vbNewLine & vbNewLine & "This DAF is being submitted for processing." & vbNewLine & vbNewLine & "Thank You!"
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing


End Sub

 

[FisherKat]

This works wonderfully! Thank you Marshl9898!!! So very appreciated!!