Outlook - Easy one

[uni]

Hi,

If I have outlook open, does anyone know how to load a new message window from vb.

Thanks in advance.

[Chris Eastwood]

<de-lurk>

If you have the full version of Outlook (not Outlook Express), you can use the object model to do just about anything for you :

This sample shows how to use Outlook to create and send a new message (including an attachment) :


'
Sub SendMessage(DisplayMsg as Boolean, Receiver as string, optional
AttachmentPath)
Dim objOutlook as Outlook.Application
Dim objOutlookMsg as Outlook.MailItem
Dim objOutlookRecip as Outlook.Recipient
Dim objOutlookAttach as Outlook.Attachment
Dim CallDescription as string
'
' Create the Outlook session.
'
set objOutlook = CreateObject("Outlook.Application")
'
' Create the message.
'
set objOutlookMsg = objOutlook.CreateItem(olMailItem)
'
With objOutlookMsg
'
' Add the to recipient(s) to the message.
'
set objOutlookRecip = .Recipients.Add(Receiver)
objOutlookRecip.Type = olTo
'
' Add the CC recipient(s) to the message.
'
set objOutlookRecip = .Recipients.Add("an other person")
objOutlookRecip.Type = olCC
'
' set the Subject, Body, and Importance of the message.
'
.Subject = "Replace this string With your subject Or variable"
'
.Body = "replace this string With your subject Or variable"
.Body = .Body & vbCrLf & "In this manner you can create a body larger than 256 characters"
'
.Importance = olImportanceHigh 'High importance
'
' Add attachments to the message.
'
If Not IsMissing(AttachmentPath) then
set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If
'
' Resolve each Recipient's name.
'
for Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
next
'
' Should we display the message before sending?
'
If DisplayMsg then
.Display
else
.Send
End If

End With
'
set objOutlook = nothing
End Sub




If you simply want to bring up a form for the user to type in all the details, the following will suffice :


Dim oOutlook as Outlook.Application
Dim oMsg as Outlook.MailItem

set oOutlook = GetObject(, "Outlook.Application")
set oMsg = oOutlook.CreateItem(olMailItem)
'
oMsg.Display vbModal
'
set oMsg = nothing
set oOutlook = nothing




</de-lurk>



Chris Eastwood
VBCodeLibrary - http://www.vbcodelibrary.com