I need a Macro that sends out email with one cells contents

[Glervey]

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

 

[nardagus]

Hi,

Did you try:

[COLOR=#333333]myMail.HTMLBody = sheets("[/COLOR][B]Button").Range("D44")[/B]

?

 

[DanteAmor]

Hi @Glervey, welcome to the forum!

You can also try:

myMail.HTMLBody = [button!D44]