S
StuJol
i have the following code
Private Sub ReportAFaultPB_Click()
On Error GoTo Err_ReportAFaultPB_Click
Dim var1 As Variant
Dim var2 As Variant
Dim var3 As Variant
Dim var4 As Variant
Dim var5 As Variant
var1 = DLookup("[CompanyName1]", "Our Company Info")
var2 = DLookup("[cAddress]", "Our Company Info")
var3 = DLookup("[PhoneNumber]", "Our Company Info")
var4 = DLookup("[Database]", "Database Information")
var5 = DLookup("[Revision]", "Database Information")
DoCmd.SendObject acSendNoObject, , , "myemailaddress", , , "Report A
Fault", "Your Database Details" & vbCrLf & vbCrLf & var1 & vbCrLf & var2 &
vbCrLf & var3 & vbCrLf & var4 & vbCrLf & var5 & vbCrLf & vbCrLf & "Type Your
Fault Below"
Exit_ReportAFaultPB_Click:
Exit Sub
Err_ReportAFaultPB_Click:
MsgBox Err.Description
Resume Exit_ReportAFaultPB_Click
End Sub
When my new email opens in outlook it all works fine but you can edit the
edit message part of the send oblect method. can i stop the user from editing
this text but still be able to add text to the email before sending it.
Private Sub ReportAFaultPB_Click()
On Error GoTo Err_ReportAFaultPB_Click
Dim var1 As Variant
Dim var2 As Variant
Dim var3 As Variant
Dim var4 As Variant
Dim var5 As Variant
var1 = DLookup("[CompanyName1]", "Our Company Info")
var2 = DLookup("[cAddress]", "Our Company Info")
var3 = DLookup("[PhoneNumber]", "Our Company Info")
var4 = DLookup("[Database]", "Database Information")
var5 = DLookup("[Revision]", "Database Information")
DoCmd.SendObject acSendNoObject, , , "myemailaddress", , , "Report A
Fault", "Your Database Details" & vbCrLf & vbCrLf & var1 & vbCrLf & var2 &
vbCrLf & var3 & vbCrLf & var4 & vbCrLf & var5 & vbCrLf & vbCrLf & "Type Your
Fault Below"
Exit_ReportAFaultPB_Click:
Exit Sub
Err_ReportAFaultPB_Click:
MsgBox Err.Description
Resume Exit_ReportAFaultPB_Click
End Sub
When my new email opens in outlook it all works fine but you can edit the
edit message part of the send oblect method. can i stop the user from editing
this text but still be able to add text to the email before sending it.