Another Outlook question

**jgelpi16** · 03-01-2011, 09:38 AM

You'll have to forgive me...Still new to sending e-mails via Outlook. As you'll see in my code I am trying to display each variable on a new line. However, it is just running together. Suggestions/Tips?

Code:

strHeader = "<html><head></head><body>"
    strBody1 = "Store #:" & vStore
    strBody2 = "# Medium Bags: " & vNumMed
    strBody3 = "# Large Bags: " & vNumLrg
    strBody4 = "# Paper Bags: " & vNumPaper
    strBody5 = "Allocate: " & vAllocate
    strBody6 = "Pull & Post Bill: " & vPullPostBill
    strBody7 = "Comments: " & vComments
    strFooter = "</body></html>"
    
    Set OutMail = objOutlook.CreateItem(0)

    OutMail.To = vEmailAddr
    OutMail.Subject = "Bag Order Request"
    OutMail.HTMLBody = strHeader & strBody1 & vbCrLf & strBody2 & vbCrLf & strBody3 & vbCrLf & strBody4 & vbCrLf & _
        strBody5 & vbCrLf & strBody6 & vbCrLf & strBody7 & vbCrLf & strFooter
    OutMail.Send  'Send | Display
    Set OutMail = Nothing

**jgelpi16** · 03-01-2011, 09:52 AM

Solved...

Code:

    strHeader = "<html><head></head><body>"
    strBody = "Store #:" & vStore & "<br />" & "# Medium Bags: " & vNumMed & "<br />" & "# Large Bags: " & vNumLrg & "<br />" & _
                "# Paper Bags: " & vNumPaper & "<br />" & "Allocate: " & vAllocate & "<br />" & "Pull & Post Bill: " & vPullPostBill & _
                "<br />" & "Comments: " & vComments
    strFooter = "</body></html>"
    
    Set OutMail = objOutlook.CreateItem(0)

    OutMail.To = vEmailAddr
    OutMail.Subject = "Bag Order Request"
    OutMail.HTMLBody = strHeader & strBody & strFooter
    OutMail.Send  'Send | Display

Another Outlook question

Thread Tools

Another Outlook question

Similar Threads

Outlook Object Model question - automation

Outlook

Outlook to Access

Outlook

Outlook contacts

Tags for this Thread

Posting Permissions