macro to send email (outlook) from excel with table

[tonyjyoo]

Hello,

I need assistance sending an outlook email from an excel file with <acronym title="visual basic for applications" style="border-width: 0px 0px 1px; border-top-style: initial; border-right-style: initial; border-bottom-style: dotted; border-left-style: initial; border-top-color: initial; border-right-color: initial; border-bottom-color: rgb(0, 0, 0); border-left-color: initial; border-image: initial; cursor: help; color: rgb(51, 51, 51); background-color: rgb(250, 250, 250);">VBA</acronym>.

Every email message will have the following content:


"Hi:

We are expecting the following NSCC Deposits.

	NSCC Deposits
Account Name:	Company A	Company B	Company C	Company D
Account Number:	412-170-6972	412-170-6956	412-170-6915	412-170-6931
Credit Amount:	$$	$$	$$	$$

<tbody>
</tbody>

Thanks,

Tony"

*** where each of the "Credit Amounts" in my table would be a SUM of 2 cells in a workbook I have - specifically, Company A's credit amount would be the sum of cells J26 and J27; Company B would be the sum of cells L26 andL27; etc. Is there a way I can create a macro within my excel workbook, have it look at the sum of these cells and send an email? The credit amounts in the body of my email are the only things changing; everything else is static.

I am somewhat aware I will need to use HTMLbody for my table. I just don't know how to write the VBA for creating a table like above within the body of my outlook email.

 

[Krayons]

Answered here:

http://www.mrexcel.com/forum/excel-...lications-send-email-multiple-cells-body.html

 

[tonyjyoo]

I'm not sure I follow.. I tried copying code but am not getting anything?

Answered here:

http://www.mrexcel.com/forum/excel-...lications-send-email-multiple-cells-body.html

 

[tonyjyoo]

How can I adjust the following code to add a table within the body of my email? What vba line items can I add:

Sub Mail_small_Text_Outlook()
[COLOR=black]'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2016[/COLOR]
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        [COLOR=black]'You can add a file like this
        '.Attachments.Add ("C:\test.txt")[/COLOR]
        .Send  [COLOR=black] 'or use .Display[/COLOR]
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing [COLOR=#3366CC]End Sub
[/COLOR]

In order to have a table like the one I posted in post #1.

 

[Krayons]

Apo describes how, and provides the code, in this post: http://www.mrexcel.com/forum/excel-...nd-email-multiple-cells-body.html#post3542809

Adapt it to your specific project.