Modules & VBA :: Adding Email Address Not In Recordset
Aug 21, 2014
My situation is that , I have a sub for sending an email to a single client on the current form. Using a record set works fine, I now wish to have
.Cc email address which is not part of the Record set ." its to the department head". strEmailAddress = rst![clientEmail] & " ;" & somebody@ntlworld.com
My question is can I type the somebody email address as indicated in red in the above line? to enable the email to go to both addressees .
set DoCmd.SendObject , , acFormatRTF, clientEmail, _ , , strSubject, strEMailMsg, False, False?
I would prefer to use the Do Cmd SendObject is this is achievable
View Replies
ADVERTISEMENT
May 2, 2014
I have vba code set up to automate a query output to email with outlook. I am having issues with the "TO" field. I have tried different types of code, such as the following:
1) MyMail.To = MailList.Fields("EmailAddress")
2) MyMail.To = MailList.Fields("EmailAddress") & ";"
Both of these work, but the issue I am having is the "TO" field in the outlook message looks like this:
admin@blahblah#mailto:admin@blahblah#
Why my code is adding the email address twice, I need to get rid of the #mailto:admin@blahblah# but I do not know how or why it keeps adding that end part.
View 3 Replies
View Related
Jan 19, 2015
I am currently using vb code to send an email in Access on the click of a button. I want the database user to be able to enter the recipient in a text box [ToEmail] which is on form [GroupStockProfiler]. However, I'm unsure how to put this into my code. I currently have the following which doesn't work (unless I put a specific email after 'To'):
Private Sub Command414_Click()
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
[code]...
View 1 Replies
View Related
Nov 21, 2013
Is it possible to send an email after pressing a button to an email address which is within a field? If so where should I start?
View 6 Replies
View Related
Nov 4, 2014
I have a field which contains various text including an email address which i need to extract.
My research says that I need to use a regex code but dont know how to get that into Access.
I have attached an example of the file i'm importing into Access.
View 5 Replies
View Related
Jul 14, 2014
I can already send emails out as PDF files when an email address exists, however, I'm trying to validate whether or not an email address does actually exist. My problem is, there are four possible locations where an email address could be: MainEmail or Contact1Email or Contact2Email or Email (the last one - Email - is in a separate table).
Four text boxes exist on the form that is being actioned (the form is based on a query to extract the relevant information) and are available to test for an email address being present. What I'm struggling with is ensuring that the 'To' box in Outlook always gets populated or Outlook chucks a hissy fit. I have been trying various IF Then Else and Do Loop plus a myriad of other ways but none are reliable, especially if no email address is present which can be the case.
View 14 Replies
View Related
Dec 3, 2013
I'm trying to see if can search outlook exchange from access vba to get email address (using windows user name) .
View 1 Replies
View Related
Sep 4, 2013
I have a table that holds company information for the user - eg farm name, company name, manager, phone number and email address etc. Its simply used to provide headers for reports, so that the same generic database can be used on several farms. There is only one record in this table tblfarmdetails.The second table tblorder is for orders and receipts - I currently have code that allows the user to send an order request by email to the manager, and to also send notice of receipt of goods through to the manager. I would like the code to get the email address from the unrelated table.Can I reference this field in the vba?
Private Sub cmdemailorder_Click()
Dim orderdate As String
Dim stafford As String
Dim item As String
Dim itemamnt As String
[code]....
View 8 Replies
View Related
Jun 13, 2013
One of my clients has asked me to look at building a way to check if the email addresses they are capturing in my CRM are valid. He want's to go beyond checking for no "@" etc.
From what I've seen, it looks like a reverse DNS check (might be totally wrong) is the way to go. IE: check if the email is valid. I've see a few tools online that can do it one by one (which I could parse to if I had to) - but ideally I'd like to be able to run this from a VBA script.
View 9 Replies
View Related
Sep 17, 2012
I have a form where the user puts in a email address, eg test @ myserver.net
So the link opens a new mail it has to be prefixed by mailto:
How can I automatically replace the address the user enters with the format mailto:test@myserver.net
View 3 Replies
View Related
Feb 3, 2015
I'm using an unbound text box and a command button to filter a list of contacts on a continuous form. The continuous form has a query for the record source and the list ends up showing only what is in the strWhere filter
Me.Filter = strWhere
Me.FilterOn = True
Is there a way to have Access 2003 take this filtered list and populate the To: field in Outlook or whatever the default mail client is? Each email needs to be deliminated by ";"
View 5 Replies
View Related
Aug 9, 2006
I have a form bound to a table which stores contact info for a person. I have two controls that are email_address and website_address. I set them both as hyperlinks.
So now when the user clicks on the email_address Outlook opens a new message with an email_address in the To field. (I had to use a function found on this forum to replace the "htttp" with "mailto" on AfterUpdate event in order for this to work properly.) However, now trying to add some other features to my DB I ran into problems listed below. I wonder if I should have rather left that control as Text instead of Hyperlink, and use the DoCmd.SendObject on doubleclick event instead of using the above solution.
How people usually store email addresses and enable emailing on click?
The problems I ran into:
1) My main form is in popup mode and therefore right click on the hyperlink does not give an option to edit the hyperlink
2) I copied a function from this forum which gathers a list of emails and sends one message to the emaillist. However, my email list instead of generating as:
email1@a.com; email2@b.com
it generates as:
email1@a.com#mailto:email1@a.com#; email2@b.com#email2@b.com#
I guess I could extract the email using vba (not sure how), but I still don't know how to solve issue number 1. So maybe it is better to siwtch the field to plain text and forget the hyperlinks?
Thanks,
Mariusz
PS. What procedure on double click would open a default browser, since I also have to deal with web addresses and thought of turning them into text controls?
View 1 Replies
View Related
Dec 9, 2014
I have this code here that sends an email out with all the needed info. The problem i ran into was that for my field "item" it is in a table called "test" and there can be more than one record in there. I just can't get it to loop and show me all of the records. Right now it shows me only the first record. Also it is showing the name of the table before the result so i am not sure what is wrong there...
Code:
Private Sub Command4_Click()
On Error GoTo Err_SendInfo_Click
Dim varTo As Variant
Dim varCC As Variant
Dim stSubject As String
[Code] ....
View 4 Replies
View Related
Mar 17, 2014
I have some code that takes from a query, an email address and sends out an email.Due the security warning that happens for each individual email, i want to create ONE email for all email address in the query and populate them to the BCC section of the sendobject.Here is the code that I currently use
Code:
Private Sub cmdSendEmail_Click()
Dim MyDB As DAO.Database
Dim rsEmail As DAO.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String
[code]...
I want to populate the BCC field with multiple emails addresses seperated by ":" and send just one email.
View 4 Replies
View Related
Sep 16, 2013
I want to automate an email to include the senders email addres with some text in the body of the email.
Code:
Private Sub send_mail_Click()
Dim olApp As Object
Dim objMail As Object
On Error Resume Next 'Keep going if there is an error
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open
[Code] ....
View 3 Replies
View Related
Jun 9, 2014
Is there a way of looping through a form record set, while adding new records to a different form record set? using some data from the 1st record set in the new records?
View 8 Replies
View Related
Jan 28, 2015
I am having troubles adding email addresses to my CC box in my email. I am able to get the emails to populate into the "To:" space. Now I know I have the DLookup accessing the same record, but how can I make it so the CC_List puts the emails into the CC of the email?
Code:
Dim DailyReport As Integer
Dim EmailRecipiantsList As String
Dim RecipiantName As String
Dim CC_List As String
[code]....
View 14 Replies
View Related
Jan 29, 2015
I have some code that takes data from my database and creates an email with it. It also creates a folder and a word document. In the email, I would also like to include the file path as a link instead of just the path that it puts there now. Is this possible to do?
Code:
Option Compare Database
Private Sub SendEmail_Click()
On Error GoTo Err_open_word_Click
Dim oApp As Object
Dim path As String
[Code] .....
View 1 Replies
View Related
Feb 7, 2014
I have been able to create code to send email for my ticket system but now have a need to add an additional recipient. I would prefer this recipient to be add in the CC field. This email address will come from its own table. I have tried to figure this out myself but I can't get anything to work for me . I am fairly new to VBA and all of my experience is just through trial and error (mostly error). I have attached my original code below ....
Private Sub cmdMailTicket_Click()
On Error GoTo Err_cmdMailTicket_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
[Code] ....
View 1 Replies
View Related
Jul 16, 2014
NameStr As String
I have made a name string
Now I would like to add the nameStr near "Dear " how can i do this?
strbody = "<H3><B>Dear [I want the placed nameStr here] </B></H3>" & _
bodyStr & _
"<br><br><B>Thank you</B>"
View 1 Replies
View Related
Dec 11, 2004
What is a email address (in a PM)
Jabez
View 1 Replies
View Related
May 8, 2007
Can't find anywhere else to post this so...
When I joined this forum last month, I attempted to enter my current email address and I got a message box that my email address had been banned. I tried several times to enter the correct (current) email address and each time was told that email address had been banned.
I attempted to contact 'jon@access-programmers.co.uk' on the 13th and 27th of April with no response.
As it is right now, this forum only recognizes my old email address instead of my real email address as that's the only way I could continue the join process.
Can anyone:
1. tell me why my current email address has been banned
2. help me get my correct information entered?
thanks.
View 2 Replies
View Related
Dec 14, 2004
The code below works for the one email address "Quality Assurance"...but I want to add more email values to SendObject command.
If I do this: stEmail = Me.Quality_Assurance_Authorizer.Column(1) And Me.Engineering_Authorizer.Column(1)..... I get a Runtime error '13' Type mismatch. Is there another way of including a series of email values into the SendObject code below? The reason I'm using the value of the column is that sometimes the value may be null if that department doesnt need to be emailed. Thanks for any help.
Private Sub cmdPCAuthSend_Click()
Dim stDocName As String
Dim stEmail As String
stDocName = "rptPCAuthReq"
stEmail = Me.Quality_Assurance_Authorizer.Column(1)
DoCmd.SendObject acSendReport, stDocName, "SnapshotFormat(*.snp)", stEmail, , , "PCA Authorization Request", "Please review this product change and authorize when appropriate."
Exit_cmdPCAuthSend_Click:
Exit Sub
End Sub
View 5 Replies
View Related
Apr 1, 2005
Hey all,
What is the easiest way to create a validation rule for entering email addresses i.e. making sure the @ symbol is between text.
e.g. texthere@texthere.com
Thanks in advance...
View 5 Replies
View Related
Apr 10, 2006
Can somebody give me the input mask for an email address?
Thanks!
View 2 Replies
View Related
May 22, 2013
I am using Access 2007. I have a text field that contains multiple e-mail addresses. The field is generated from a excel file that I download from a website the company uses. I would like to create a query or VBA code to change the e-mail address to just the employee name. The problem is the filed can have multiple e-mail address separated by a comma. I have been changing them manually using "Search - Replace", but that is getting tedious as the database is getting used more often.
View 4 Replies
View Related