frankbutcher
Registered User.
- Local time
- Today, 22:11
- Joined
- Aug 6, 2004
- Messages
- 192
Hi
I have recently upgraded to Outlook 2010 from 2007, but my Access is still at 2003.
I used to send emails from Access with Outlook 2007 with the following code:-
---------------------------------
Private Sub Command67_Click()
On Error GoTo Err_Command67_Click
Dim strMailto As String ' email address
Dim strMailcc As String ' email address
Dim strSubject As String 'This is for the subject line in the e-mail
Dim strMessage As String 'This is for the email message text
strMailto = "eg@example.com"
strMailcc = "eg@example.com"
strSubject = "Quotation Number " & Me.ProjectNo & " can now be loaded"
strMessage = "All" & vbCrLf & vbCrLf & "Quotation Number " & Me.ProjectNo & " can now be loaded onto Sage" & vbCrLf & vbCrLf & "All relevant PO's/Email confirmation and quotation's should be in the folder" & vbCrLf & vbCrLf & "Any problems, please give me a call"
DoCmd.SendObject , , "RichTextFormat(*.rtf)", strMailto, strMailcc, "", strSubject, strMessage, True, ""
Command67_Click_Exit:
Exit Sub
Err_Command67_Click:
If MsgBox("The Email has not been sent, errors have occured", vbQuestion, "Change Status") = vbNo Then
DoCmd.CancelEvent
End If
End Sub
---------------------------------
Now I have changed to Outlook 2010, this does not seem to work.
I have read another post about the same issue, and it mentioned "binding" but have no idea what this is!!
Can anyone shed any light?
Thanks.
Frank.
I have recently upgraded to Outlook 2010 from 2007, but my Access is still at 2003.
I used to send emails from Access with Outlook 2007 with the following code:-
---------------------------------
Private Sub Command67_Click()
On Error GoTo Err_Command67_Click
Dim strMailto As String ' email address
Dim strMailcc As String ' email address
Dim strSubject As String 'This is for the subject line in the e-mail
Dim strMessage As String 'This is for the email message text
strMailto = "eg@example.com"
strMailcc = "eg@example.com"
strSubject = "Quotation Number " & Me.ProjectNo & " can now be loaded"
strMessage = "All" & vbCrLf & vbCrLf & "Quotation Number " & Me.ProjectNo & " can now be loaded onto Sage" & vbCrLf & vbCrLf & "All relevant PO's/Email confirmation and quotation's should be in the folder" & vbCrLf & vbCrLf & "Any problems, please give me a call"
DoCmd.SendObject , , "RichTextFormat(*.rtf)", strMailto, strMailcc, "", strSubject, strMessage, True, ""
Command67_Click_Exit:
Exit Sub
Err_Command67_Click:
If MsgBox("The Email has not been sent, errors have occured", vbQuestion, "Change Status") = vbNo Then
DoCmd.CancelEvent
End If
End Sub
---------------------------------
Now I have changed to Outlook 2010, this does not seem to work.
I have read another post about the same issue, and it mentioned "binding" but have no idea what this is!!
Can anyone shed any light?
Thanks.
Frank.