How to send a mail automatically?

[DanielM]

I know how to create an outlook object. this is the function I wrote:

Public Sub Outlook_CreateNew(prmOutLookType As Integer, Optional prmEmailAdress As String, Optional prmMessage As String)
    Dim objOL As Object
    Set objOL = CreateObject("Outlook.Application")
    Dim NewTask As Object
    Set NewTask = objOL.CreateItem(prmOutLookType)
    If prmOutLookType = 0 Then 'Mail
        NewTask.To = prmEmailAdress
        NewTask.Body = prmMessage
    End If
    NewTask.Display
End Sub

-----------------------------------------------------
If anybody can answer me:
1.How can I do that the computer also will send the mail automatically by Button event without opening the outlook?
2. How can I find the outlook properties, it was a miracle I found out that "obj.Body" is the body text, I just gussed, the problem is it don't give like intelisence.

[NeoPa]

1. Try DoCmd.SendObject()
2. Use F2 to go to the Object Browser Pane. Navigate from there into the Outlook library reference etc.