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 = "3855359246@messaging.sprintpcs.com; 3852889371@tmomail.net "
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
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 = "3855359246@messaging.sprintpcs.com; 3852889371@tmomail.net "
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