sending email through Access function doesn't work when client is on Exchange

[Gina Maylone]

Hello all,

I was wondering if anyone else has run into this problem. I have a function that sends an email from an Access form, which works fine on my machine (not on exchange server), but does not work for my clients (who are on Exchange server). Is there some reason this might be occurring?



I thank you in advance and wish you all a wonderful day!

[pbaldy]

What is your code? Some methods use the default mail client, some do not.

[Gina Maylone]

DoCmd.SetWarnings False

Dim MyTrackingTable As Recordset
Set MyTrackingTable = CurrentDb.OpenRecordset("SentEmails")
DoCmd.OpenQuery "DeleteTempConfEmails"
DoCmd.OpenQuery "AddtoTempConfEmailTable"
DoCmd.OpenQuery "AddtoTempConfEmailTable2"
Dim stDocName As String

DoCmd.RunMacro "outputletter"


Dim db As DAO.Database
Dim MailList As DAO.Recordset
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim Subjectline As String
Dim BodyFile As String
Dim MyBody As String

Dim MyBodyText As String

Subjectline = "Thank you for choosing John's Moving"


Set db = CurrentDb()
Set MailList = db.OpenRecordset("TempConfEmailTable")

Do Until MailList.EOF
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook

BodyFormat = olFormatHTML
.To = MailList("emailaddress")
.SentOnBehalfOfName = "chris@johnsmoving.com"
.Subject = "Thank you for choosing johns's Moving"
If Me.TravelMove = True Then
.HTMLBody = DLookup("travelmessage", "emailmessages")
Else
.HTMLBody = DLookup("morningmessage", "emailmessages")
End If

.Attachments.Add ("c:\johns moving\documents\Boxes and Packing Supplies.pdf")
.Attachments.Add ("c:\johns moving\documents\Home Packing Tips.pdf")
.Attachments.Add ("c:\johns moving\documents\insurance and agreement.pdf")
.Attachments.Add ("c:\johns moving\documents\confirmationletter.pdf")
'.Attachments.Add ("c:\johns moving\documents\confirmpage2.pdf")

If Me.WinterMOve = True Then
.Attachments.Add ("c:\johns moving\documents\Winter Moves.pdf")
End If
If Me.StorageMove = True Then
.Attachments.Add ("c:\johns moving\documents\self storage form.pdf")
End If


On Error Resume Next
.send
'If Err.Number Then MsgBox "Failure"


MyTrackingTable.AddNew
MyTrackingTable("emailaddress") = MailList("emailaddress")
MyTrackingTable("emailsubject") = "Move Confirmation"
MyTrackingTable("DateSent") = Now()
MyTrackingTable("Created By") = Me.ConfirmationMadeby
MyTrackingTable.Update
End With

MailList.MoveNext

Loop
MsgBox "Email Sent! Please look in your Sent Items folder to verify."

Set MyMail = Nothing
Set HTMLBody = Nothing
'Set Subject = Nothing
Set Attachment = Nothing


'MyOutlook.Quit
Set MyOutlook = Nothing

MailList.Close
Set MailList = Nothing
db.Close
Set db = Nothing

[pbaldy]

You're using early binding, which would require them to have the same version of Outlook you have. Do they? What error do they get by the way?