J
Jim Ory
Using WinXP and Access2K2
Thanks for all the help I've recieved from this group in the past.
After successfully incorporating Arvin Meyer’s VBA (Arvin Meyer
(e-mail address removed)) to email from Access2K2 through Outlook2K2, I have
found that trying to do the same, replacing Outlook2K2 with Outlook 2007, I
cannot get email output. At home, I use both Access2K2 and Outlook2K2 and
everything works quite well. When I take the program to install it at the
Charity’s office, that uses Outlook 2007, it fails. I understand there are
significant differences in the way Outlook 2007 handles spamming by not
allowing other programs to do mass emailing.
The first question is should I be looking in the Outlook discussion group or
the Access discussion group, as they are both involved? I did some looking in
the Outlook group, but most of the answers were how to turn off the warning
messages. One answer in the group concerned a CDO reference, which I did not
understand.
The second question, if there is a solution in the Access discussion group,
what can I do next to enable mass mailing from Access2K2 through Outlook 2007?
References used in my database are: Visual Basic for Applications, Microsoft
Access 10.0 Object Library, OLE Automation, & Microsoft DAO 3.6 Object
Library.
Arvin Meyers VBA: (I left out the routine to select recipients for
“strEmailâ€.)
Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmail_Click
Dim strDocName As String
Dim strEmail As String
Dim strMailSubject As String
Dim strMsg As String
Dim strRptFormat As String
Dim strTo As String ‘I added this thinking it might help
strTo = Me.txtTo & vbNullString
strEmail = Me.txtSelected & vbNullString
strMailSubject = Me.txtMailSubject & vbNullString
strMsg = Me.txtMsg & vbNullString
DoCmd.SendObject acSendNoObject, , , To:=strTo, Bcc:=strEmail,
subject:=strMailSubject, Messagetext:=strMsg
Exit_cmdEmail_Click:
Exit Sub
Err_cmdEmail_Click:
Select Case Err.Number
Case 2501 'Cancelled SendObject EMail
Case Else
MsgBox Err.Description
Resume Exit_cmdEmail_Click
End Select
End Sub
Thanks for taking the time to look at this.
Thanks for all the help I've recieved from this group in the past.
After successfully incorporating Arvin Meyer’s VBA (Arvin Meyer
(e-mail address removed)) to email from Access2K2 through Outlook2K2, I have
found that trying to do the same, replacing Outlook2K2 with Outlook 2007, I
cannot get email output. At home, I use both Access2K2 and Outlook2K2 and
everything works quite well. When I take the program to install it at the
Charity’s office, that uses Outlook 2007, it fails. I understand there are
significant differences in the way Outlook 2007 handles spamming by not
allowing other programs to do mass emailing.
The first question is should I be looking in the Outlook discussion group or
the Access discussion group, as they are both involved? I did some looking in
the Outlook group, but most of the answers were how to turn off the warning
messages. One answer in the group concerned a CDO reference, which I did not
understand.
The second question, if there is a solution in the Access discussion group,
what can I do next to enable mass mailing from Access2K2 through Outlook 2007?
References used in my database are: Visual Basic for Applications, Microsoft
Access 10.0 Object Library, OLE Automation, & Microsoft DAO 3.6 Object
Library.
Arvin Meyers VBA: (I left out the routine to select recipients for
“strEmailâ€.)
Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmail_Click
Dim strDocName As String
Dim strEmail As String
Dim strMailSubject As String
Dim strMsg As String
Dim strRptFormat As String
Dim strTo As String ‘I added this thinking it might help
strTo = Me.txtTo & vbNullString
strEmail = Me.txtSelected & vbNullString
strMailSubject = Me.txtMailSubject & vbNullString
strMsg = Me.txtMsg & vbNullString
DoCmd.SendObject acSendNoObject, , , To:=strTo, Bcc:=strEmail,
subject:=strMailSubject, Messagetext:=strMsg
Exit_cmdEmail_Click:
Exit Sub
Err_cmdEmail_Click:
Select Case Err.Number
Case 2501 'Cancelled SendObject EMail
Case Else
MsgBox Err.Description
Resume Exit_cmdEmail_Click
End Select
End Sub
Thanks for taking the time to look at this.