I was wondering if it was possible to get access (using vba of course) to send an email without using outlook (sendobject command). Thanks.
Printable View
I was wondering if it was possible to get access (using vba of course) to send an email without using outlook (sendobject command). Thanks.
The SendObject command will use the default email editor on
the system. To do email without Outlook you will need to do
something like SMTP. Try a search for SMTP.
VB Code:
DoCmd.SendObject acSendReport, "MyReport", acFormatXLS, "[email protected]", , , "Send Test", "Fix my Windows Bill!", False
If you use SendCommand with an argument of acSendNoObject you can send a plain email, although I haven't tried it with a client other than Outlook.
If you do a shellexecute you can use the default email editor to send
the email since you dont want to use the SendObject method.
VB Code:
Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_HIDE As Long = 0 Private Const SW_SHOWNORMAL As Long = 1 Private Sub Command1_Click() ShellExecute 0&, "OPEN", "mailto:[email protected]?subject=something&body=this is the body", vbNullString, "C:\", SW_SHOWNORMAL End Sub
Thanks. I'll have to try that later.