G
GillyRich
I have a database with buttons on a form, and when I click them an email is
automatically generated with contact details etc. from the form. Has been
working fine, but suddenly when Outlook is opened up and the email displayed,
I can no longer use the Send button, can't even copy the text etc.
Here's the code that has been working fine till now, haven't changed anthing
in Outlook or my accounts that I know of. Help please!
Private Sub CmdEmlOrdUpdate_Click()
On Error GoTo Err_CmdEmlOrdUpdate_Click
If IsNull(Me.CustEmail1) Then
MsgBox "There is no email address."
Else
DoCmd.SendObject , "", "", CustEmail1.Value, "",
"", "Order Update, Payment Made", "Hi " & Forms![FEntOrd]![OrdShipForeName] &
_
Chr(13) & Chr(13) & "Thank you for your payment of $" &
Forms![FEntOrd]![FSubItmFrm].Form![ItmSum] & " for a " &
Forms![FEntOrd]![FSubItmFrm].Form![ItmProdName] & " cleared on the " &
Forms![FEntOrd]![OrdPaymtDate] & "." & _
Chr(13) & Chr(13) & "Your purchase should be despatched within 48
hours and I will update you with a consignment note number when this has
happened. Please note that items over 30kg can take longer due to extra
packaging, handling and courier delivery routes." & _
Chr(13) & Chr(13) & "Thank you for using ToolsOnline." & _
Chr(13) & Chr(13) & "Regards" & _
Chr(13) & "" & _
Chr(13) & Chr(13) & "Paul" & _
Chr(13) & Chr(13) & "ToolsOnline Ltd" & _
Chr(13) & "www.toolsonline.co.nz", True, ""
End If
Exit_CmdEmlOrdUpdate_Click:
Exit Sub
Err_CmdEmlOrdUpdate_Click:
Err.Clear
Resume Exit_CmdEmlOrdUpdate_Click
End Sub
automatically generated with contact details etc. from the form. Has been
working fine, but suddenly when Outlook is opened up and the email displayed,
I can no longer use the Send button, can't even copy the text etc.
Here's the code that has been working fine till now, haven't changed anthing
in Outlook or my accounts that I know of. Help please!
Private Sub CmdEmlOrdUpdate_Click()
On Error GoTo Err_CmdEmlOrdUpdate_Click
If IsNull(Me.CustEmail1) Then
MsgBox "There is no email address."
Else
DoCmd.SendObject , "", "", CustEmail1.Value, "",
"", "Order Update, Payment Made", "Hi " & Forms![FEntOrd]![OrdShipForeName] &
_
Chr(13) & Chr(13) & "Thank you for your payment of $" &
Forms![FEntOrd]![FSubItmFrm].Form![ItmSum] & " for a " &
Forms![FEntOrd]![FSubItmFrm].Form![ItmProdName] & " cleared on the " &
Forms![FEntOrd]![OrdPaymtDate] & "." & _
Chr(13) & Chr(13) & "Your purchase should be despatched within 48
hours and I will update you with a consignment note number when this has
happened. Please note that items over 30kg can take longer due to extra
packaging, handling and courier delivery routes." & _
Chr(13) & Chr(13) & "Thank you for using ToolsOnline." & _
Chr(13) & Chr(13) & "Regards" & _
Chr(13) & "" & _
Chr(13) & Chr(13) & "Paul" & _
Chr(13) & Chr(13) & "ToolsOnline Ltd" & _
Chr(13) & "www.toolsonline.co.nz", True, ""
End If
Exit_CmdEmlOrdUpdate_Click:
Exit Sub
Err_CmdEmlOrdUpdate_Click:
Err.Clear
Resume Exit_CmdEmlOrdUpdate_Click
End Sub