•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the MS Access and FileMaker Pro section within the Web Development category of DaniWeb, a massive community of 397,814 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,563 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our MS Access and FileMaker Pro advertiser:
Views: 3843 | Replies: 3
![]() |
•
•
Join Date: Feb 2007
Location: Sydney, Australia
Posts: 2
Reputation:
Rep Power: 0
Solved Threads: 0
•
•
Join Date: Oct 2006
Posts: 86
Reputation:
Rep Power: 2
Solved Threads: 0
•
•
•
•
I need to be able to have users click on a form field that is an email address to contact the "contact" - it is proving more complicated than I thought. ANY Suggestions will be welcome.:eek:
I think that you dont' need Ms Access for send mail via form. You can use for example CDONTS. Your server need to have suppot for CDONTS.
•
•
Join Date: Jan 2004
Location: Quebec, Canada
Posts: 2
Reputation:
Rep Power: 0
Solved Threads: 0
•
•
Join Date: Feb 2007
Location: London
Posts: 114
Reputation:
Rep Power: 2
Solved Threads: 8
These days the CDO.Message object is more up to date. I had to switch over from CDONTS a while back.
This function was written for VBScript, you will have to set your SMTP server and obviously the BCC is optional
This function was written for VBScript, you will have to set your SMTP server and obviously the BCC is optional
Public Sub emfSendEmail(byval pstrMailTo, _
byval pstrSubject, _
byval pstrMsg, _
byval pstrFromMail)
Dim objMsg, strSMTP, blnReturn
blnReturn = false
Const cdoSendUsingPort = 2
strSMTP = "someservername.domain.com"
Set objMsg = CreateObject("CDO.Message")
'Apply the settings to the message object
With objMsg
.From = pstrFromMail
.To = pstrMailTo
.BCC = "your email for testing"
.Subject = pstrSubject
.TextBody = pstrMsg
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
'Server port
'.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number = 0 Then
blnReturn = True
Else
response.write "(" & Hex(Err.Number) & ") " & Err.Description
End If
On Error Goto 0
End With
Set objMsg = Nothing
End Sub
![]() |
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
•
•
•
•
•
•
•
•
DaniWeb MS Access and FileMaker Pro Marketplace
•
•
•
•
access advertisment apple browser cell code combo computing core data dropdownlist email encryption eu eudora firefox gmail google imap ip mac microshaft microsoft mobile module mozilla ms net news onecare open source opinion penelope phishing phones pro processor professional reuse scam security spam spammers spamming stocks technology thunderbird virus web webmail
- Email Validation Rule with MS ACCESS (MS Access and FileMaker Pro)
- Receive Email using Ms-Access and Outlook (MS Access and FileMaker Pro)
- cant access back up files (Windows NT / 2000 / XP / 2003)
Other Threads in the MS Access and FileMaker Pro Forum
- Previous Thread: MS Access password
- Next Thread: Microsoft Nested If statements with if, then, else


Linear Mode