display email before sending it

[kes]

hi all,

I have theis code below in order to send query through outlook.
how can I display the mail and not directly sending it?

Private Sub Command64_Click()
Dim message As String

Dim rs As Recordset
Dim vRecipientList As String
Dim vMsg As String
Dim vSubject As String

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Mail_list")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do
If Not IsNull(rs!email) Then
vRecipientList = vRecipientList & rs!email & ";"
rs.MoveNext
Else
rs.MoveNext
End If

Loop Until rs.EOF

vMsg = "You have open Service Cost PMT Action Items assigned to you!(see attached)" & vbCrLf & "please update your AI status in the SharePoint : http://ent111.sharepoint.hp.com/teams/servicecr/Lists/Action%20Items/Karin.aspx"
vSubject = "Service Cost AI"
DoCmd.SendObject acSendQuery, "Service_Cost_AI", , vRecipientList, , , vSubject, vMsg, False
MsgBox ("Report successfully eMailed!")

End With

Else
MsgBox "No contacts."
End If


Exit Sub


End Sub

 

[jdraw]

Outlook has .Display method as well as a .Send

This link is for 2013, but there may be others.
http://msdn.microsoft.com/en-us/library/office/ff861853.aspx

 

[kes]

I found 2010 their, but I'm not sure that I understand the method explained their that can be connected to my code.
is there a docmd option?

 

[pr2-eugin]

Change the last parameter (EditMessage) to True.. It will display the mail, and wait for you to send the email..

DoCmd.SendObject acSendQuery, "Service_Cost_AI", , vRecipientList, , , vSubject, vMsg, [COLOR=Blue][B]True[/B][/COLOR]

 

[kes]

working! thanks!

 

[pr2-eugin]

Glad to help ! Good Luck !