Copy ranges into email - HTLM and Text format
 

Hi,

How do i add more than one item to the body of a outlook mail using vba.

I am using named range to select the items.

i want to add Text, the leave two lines HTMLBody then leave two lines and
add another HTMLBody and leace two lines and add Text

I have a function that does the RangetoHTML after passing myRange to it.

I am getting confused here.

With OutMail
.To = s
.CC = "SH-DI-List"
.BCC = ""
.Subject = n & " - Trades in Pending Queue in SW " & Format(Now,
"dd-Mmm-yyyy") & _
" - waiting on Cxv to release booking"
.body = "Hi" & vbCrLf & vbCrLf & _
wsb.Range("B1") & vbCrLf & vbCrLf & _
wsb.Range("B2") & vbCrLf & vbCrLf & _
wsb.Range("B3") & vbCrLf & vbCrLf
.HTMLBody = .body & vbCrLf & vbCrLf & RangetoHTML(rng2) & vbCrLf &
vbCrLf
.HTMLBody = .HTMLBody & vbCrLf & vbCrLf & RangetoHTML(rng) & vbCrLf
& vbCrLf

.Display 'or use .Display or .Send
End With

Copy ranges into email - HTLM and Text format
 

fLiPMoD£ wrote:

How do i add more than one item to the body of a outlook mail using
vba.

The programmers hang out in microsoft.public.outlook.probram_vba.
--
Brian Tillman [MVP-Outlook]

Copy ranges into email - HTLM and Text format
 

Remember that when you're working with HTML, you must always use HTML tags, such as <br, to build the content, not plaiin text constants like vbCrLf.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"fLiPMoD£" wrote in message ...
Hi,

How do i add more than one item to the body of a outlook mail using vba.

I am using named range to select the items.

i want to add Text, the leave two lines HTMLBody then leave two lines and
add another HTMLBody and leace two lines and add Text

I have a function that does the RangetoHTML after passing myRange to it.

I am getting confused here.

With OutMail
.To = s
.CC = "SH-DI-List"
.BCC = ""
.Subject = n & " - Trades in Pending Queue in SW " & Format(Now,
"dd-Mmm-yyyy") & _
" - waiting on Cxv to release booking"
.body = "Hi" & vbCrLf & vbCrLf & _
wsb.Range("B1") & vbCrLf & vbCrLf & _
wsb.Range("B2") & vbCrLf & vbCrLf & _
wsb.Range("B3") & vbCrLf & vbCrLf
.HTMLBody = .body & vbCrLf & vbCrLf & RangetoHTML(rng2) & vbCrLf &
vbCrLf
.HTMLBody = .HTMLBody & vbCrLf & vbCrLf & RangetoHTML(rng) & vbCrLf
& vbCrLf

.Display 'or use .Display or .Send
End With