Hi,

Can someone tell me how I can insert a plain text into
outlook body (and not attachment) using OLE automation
through VB? For example following code in Access 2K would
create the message but it attaches the textfile in stead
of plain text on the body.

Thanks for any assistance.

Regards
++++++++++++

Private Sub Email2Client(cFileName, cMsgSub)
    Dim cEmailList As String

    Dim oOutlook As Object
    Dim oEmailmsg As Object
   
    Set oOutlook = GetObject(, "outlook.application")
    Set oEmailmsg = oOutlook.CreateItem(0)
    cEmailList = "abc@everybody.com"
    oEmailmsg.Recipients.Add (cEmailList)
    oEmailmsg.Attachments.Add cFileName, 1
    oEmailmsg.Subject = cMsgSub
    oEmailmsg.Display
End Sub