I currently have details of my clients in a table called tblSites, this tble includes a field with an email address. I currently produce a invoice which is automatically saved as a pdf and an email generated with the invoice attached. However, a few clients do not have email addresses (these are sent by post). My code (see below) will successfully produce the email with the attachment, but if the client does NOT have an email address in the tblSites it comes up with the "Invalid use of Null" error. What I want it to do is continue the process of just saving the invoice with a Msgbox stating "This Client does not have an email address etc etc.
'Save Invoice as PDF and annotate Invoice Number, Date and site name
Dim StrFile As String
Dim slSQLString As String
Dim rsEmailAddress As Recordset
Dim slEmailAddress As String
StrFile = "C:Redwatch Invoices" & Forms!frminvoice!txtInvoiceNr.Value _
& "-" & Format(Date, "dd-mmm-yy") & "-" & Forms!frminvoice!cboSiteName & ".pdf"
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.
I am a website administrator and don't want to send back a verification email as people register on my website. So, I am wondering whether there is a way for me to check the validity of their registered email addresses. How can I easily check whether an email address is valid or exists?
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.
I am using vista and access 2010, what I want is to be able to email a report from access that was created by a form with DoCmd.OpenReport "ReportOrder", acViewReport. I have a button that when i click it it will send the report via email, but the email address has to be a variable so when the report is created i can use the email that is attached to the report data.
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?
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'):
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
Right now i using client server application using - Frond End : Ms.Access + Winsock with UDP protocol. ( This program like Yahoo Messenger ) - Back End : Sql Server
I made this program for Remote Trading.
every second server or client will be send data. Sometime Server send data only to specific client, so when client logon to application, I save the IP number and after logout i clear the IP
the problem will be happen when the computer client Hang, server cannt send a data to that computer, and waiting for ever until server hang too after that all client will be hang.
and the question is How to check status computer already ON or Off i mean before server send data, server will be check status computer with that IP, If status computer On then True else False, so if computer client off, server don't need to send data.
I'm using access database. i want to code my database so that my database automatically send email notification to client and also to admin of loan expire information ( Expired date and Loan Limit which is already in my database).
How to use VBA..... I have set up a simple database to enter data into then upload to a client web portal.
I have a form to enter the data and the table this data goes into has a check box at the end which I want to have ticked/checked/True after I have exported.
I have created a query that shows me all data that is unchecked (not yet exported to an xls)
I have created a simple export macro that sends the query result to an .xls
I want the macro to finish by checking the "export" checkbox once I have done this....
I am using Access 2010 attached is a screen dump of what I have so far....
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?
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."
I have a form asking for a billing address and a service address. Many times these will be the same. I added a check box to check to populate the following fields; Service Address, Service City, Service State, Service Zip.
Fields that it will be coming from are the same, just named Billing instead of service. Tried expression builder and macro builder with no luck.
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.
I have been working on a database which is going to integrate a client database with any emails they send to me. The idea is that I will create a sub form as part of the contact information section which will show any emails that have been sent from that contact. I have a field which has the email address in the contact section and I want to link the contact to the sub form by the 'email address' and the 'from' field in the link outlook folder.
This all works great except that access links to the outlook folder and in the 'from' field, it shows the display name instead of the email address it was sent from. Is there anyway to tell it to extract the email address itself instead of the display name, or is there another way of achieving this same thing?
I have a table called Client Info which stores the clients name and their requirements (Gas safe etc). And I have a table "Job List" where i select from a drop down menu the clients and it auto fills all the requirement check boxes based on what is stored in the Client Info table. However I can't get the code to work.
Private Sub Client_Click() [job_list].[Gas_Safe].Value = [client_info].[Gas_Safe].Value End Sub
I've spent about an hour searching this site for email issues but most I found we how to send. I want to take existing data and make an email address. I have a FName field and an LName field. In my email field I want FName.LName@email.com. the @email.com will always be the ending. Also where (on gotfocus) is the best place to put this code so it autopopulates after the FName and LName are entered?
How I can insert the email address from 'Newemail' into my existing customer list 'masterlist' i.e. contact email of ID 1 and 3 :confused: ? I would like to ignore ID 4-5 from the 'Newemail' table. And I would like to keep ID 4 from the 'masterlist' table.