how to send email in access 2010

[nickblitz]

ok, this code below is working but it does not show a pop up from outlook instead it sends the mail automatically.



I want to have a pop up as a new email message with the to list populated from the query when i click the button on the form. anyone can help?

Code:

Dim MyDb As DAO.Database
Dim rsEmail As DAO.Recordset
Dim strEmailAddress

Set MyDb = CurrentDb()
Set rsEmail = MyDb.OpenRecordset("Query Full Director", dbOpenSnapshot)

Do Until rsEmail.EOF strEmailAddress = strEmailAddress & rsEmail("Email") & ";"
rsEmail.Move
NextLoop
strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)
DoCmd.SendObject , , acFormatRTF, strEmailAddress, _, , strSubject, strEMailMsg, False, False
rsEmail.CloseSet
rsEmail = Nothing

[Rod]

I assume Outlook is your mail client. I don't know of any way except through Office Automation. That is open an Outlook session, create an email, add subject, add email body, add addresses and stop. You may then review the email before you send it.

If you want to pursue this I can help.

[redbull]

Above is my code... I use the .Display option to make the outlook email visible.

Seems the options of Docmd.sendobject might be indeed, sending the object.. Is createobject an option? Either way take a look above I hope it helps.

Sub CreateHTMLMail()        ''''Creates a new e-mail item and modifies its properties'   
Dim olApp As Outlook.Application    
Dim objMail As Outlook.MailItem    
Set olApp = Outlook.Application    'Create e-mail item'    
Set objMail = olApp.CreateItem(olMailItem)         

 ''' Assigning things in the outlook mail message.   ' This example will populate the email based on form txtboxes.    

With objMail        
.Subject = Forms("Formname").txtboxname        
.Body = Forms("Formname").txtboxname        
.To = Forms("Formname").txtboxname        
.Display        
.ReadReceiptRequested = True  'IF you want to enforce a read receipt, keep this part, if not just comment or remove it      End With  End Sub

[Rod]

Redbull: Reminder to include the reference to the Outlook object model!