L
ldiaz
This work wonder full but if I want to send an attachment, where is it goes??
Following is a pretty simple send mail snippet. You can call it from a
command button OnClick event or from the field itself. The control
containing the email address in this instance is "txtEmailAddress."
this is my programming,,
Private Sub SendEmail_Click()
On Error GoTo Err_SendEmail_Click
Dim stDocName As String
If IsNull(CustomerID) Then
MsgBox "There is no e-mail address to send email to!", vbOKOnly, "Error"
CustomerID.SetFocus
Exit Sub
End If
stDocName = CustomerID.Column(2)
DoCmd.SendObject , , , stDocName
Exit_SendEmail_Click:
Exit Sub
Err_SendEmail_Click:
Select Case Err.Number
Case 0
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume Exit_SendEmail_Click
End Sub
Following is a pretty simple send mail snippet. You can call it from a
command button OnClick event or from the field itself. The control
containing the email address in this instance is "txtEmailAddress."
this is my programming,,
Private Sub SendEmail_Click()
On Error GoTo Err_SendEmail_Click
Dim stDocName As String
If IsNull(CustomerID) Then
MsgBox "There is no e-mail address to send email to!", vbOKOnly, "Error"
CustomerID.SetFocus
Exit Sub
End If
stDocName = CustomerID.Column(2)
DoCmd.SendObject , , , stDocName
Exit_SendEmail_Click:
Exit Sub
Err_SendEmail_Click:
Select Case Err.Number
Case 0
Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume Exit_SendEmail_Click
End Sub