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

fLiPMoD£ <(E-Mail Removed)> 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]

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£" <(E-Mail Removed)> wrote in message news:OvtQ%(E-Mail Removed)...
> 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
>
>