Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Email and the internet.
- Thread starter rosiebob
- Start date
hermanlaksko
Programmer
Your email field should be a text field and you could use this.
On Error GoTo Fejl
If Not IsBlank(ItnMail) Then
DoCmd.SendObject , , , ItnMail
End If
Fejl:
If Err = 2501 Then Resume Next
IF your field is now a hyperlink you can use this in your code before docmd.
If InStr(1, ItnMail, "#"
Then ItnMail = Left(ItnMail, InStr(1, ItnMail, "#" - 1)
Mail.Requery
Rgds Herman
On Error GoTo Fejl
If Not IsBlank(ItnMail) Then
DoCmd.SendObject , , , ItnMail
End If
Fejl:
If Err = 2501 Then Resume Next
IF your field is now a hyperlink you can use this in your code before docmd.
If InStr(1, ItnMail, "#"
Then ItnMail = Left(ItnMail, InStr(1, ItnMail, "#" - 1) Mail.Requery
Rgds Herman
- Status
Similar threads
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question