Question re Application Automation

[kenn0380]

Basic Outlook Automation (including Send New e-Mail)

' Requires A References to the Microsoft Outlook Object Library
' in VBE, select Tools->References, and ensure it is checked
 
Private Sub ExportToOutlook()
    ' Variable Declaration
    Dim objOutlook as Object
    Dim objEMail as Object
 
    ' If Outlook is open, use GetObject, otherwise open Outlook
    Set objOutlook = GetObject(, "Outlook.Application")
    If objOutlook Is Nothing Then Set objOutlook = CreateObject("Outlook.Application")
 
    ' Creates a new e-mail
    Set objEMail = objOutlook.CreateItem(0)
    With objEMail
 
        ' Adds To Recipient
        Set ToContact = .Recipients.Add("[e-mail]")
 
        ' Adds CC recipient
        ToContact.Type = olCC
        Set ToContact = .Recipients.Add("[e-mail]")
 
        ' Sets the Subject
        .Subject = "Service Report 1234"
 
        ' Sets the Body
        .Body = "Attached herein are the Reports"
 
        ' Adds attachment
        .Attachments.Add "c:\Service Report 1234", olByValue, , "Service Report"
 
        ' Embeds attachment
        .Attachments.Add "c:\JoeBob.gif", olEmbeddedItem, , "Joe Bob's Picture"
 
        ' Receipt upon delivery
        .OriginatorDeliveryReportRequested = True
 
        ' Recipt upon read
        .ReadReceiptRequested = True
 
        ' Displays the E-Mail
        .Display
 
        ' Sends the E-Mail
        .Send
 
        ' Saves a Draft of the E-Mail
        .Save                                        
    End With
 
End Sub

With your outlook example can you use a querry to fill in the parts needed for the email such as body, send to etc.. ? What woud it look like?

[NeoPa]

This post was appended to an article (Application Automation).
This is a question so I've moved it the Access Forum, where it belongs.