html email

[simonmay]

i'd like to use html in order to format my email, and i think that <b>something bold</b> doesn't work ......

Is there a way ?

[rockies1]

Try this:

Private Sub Command1_Click()
    Dim oOutlookApp As Outlook.Application
    Dim oMailItem As Outlook.MailItem
    Dim strHTML As String
    strHTML = "This is an E-mail Test" & _
    "<br><br>" & _
    "<b>PLEASE NOTE:</b> This is only a test" & _
    "<br><br>" & _
    "Visit my website at : <a href='http://alphaprime.mine.nu'>http://alphaprime.mine.nu</a>" & _
    "<br><br>Thank You!!"
    Set oOutlookApp = New Outlook.Application
    Set oMailItem = oOutlookApp.CreateItem(olMailItem)
    Call oMailItem.Recipients.Add("[email protected]")
    oMailItem.Subject = "Test"
    oMailItem.HTMLBody = strHTML
    'oMailItem.Attachments.Add "c:\add an attachment here..."
    oMailItem.Send
    Set oMailItem = Nothing
    Set oOutlookApp = Nothing
End Sub

Also, make sure you set your references to include the Microsoft Outlook 98 Object Model...

In your HTML, where you would normally use quotes (") use ticks (') or it won't work...

[simonmay]

thank you morgan