I need to fix this code so that the body of the email texted out is actually the contents of Button!D44
Not the actual text "Button!D44"
this is hat I got
Sub TexwhenDone()
'Must add references (Tools > References) to
' 1) OLE Automation
' 2) Microsoft Outlook xx.0 Object Library
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim Source_File As String
Set outlookApp = New Outlook.Application
Set myMail = outlookApp.CreateItem(olMailItem)
myMail.To = "[email protected]; [email protected] "
myMail.HTMLBody = "<b>=Button!D44</b><br>"
'myMail.Display True comment this out if you don't want to display email'
myMail.send 'comment this out if you don't want to send yet
End Sub
Bookmarks