I am using a form to send an email but part way in the process a message box pops up with 2 buttons labeled: Allow and Deny with some other information. I am forced to select allow in order for the send process to be completed.
Is there a way to prevent this popup so that the process completes smoothly without interruptions?
Hey
I have created a database system to book appointments between tutors and students in a school.
In the form, I want tutors to be able to send appointment details to students via email. I have created tables consisting of these details, however I don't know how to set it up for emails to be sent.
I am finding this very difficult especially with the visual basic codes. :confused:
Please help!
Thanks
ssslick x:)
Hi,
I have sent up a system were i email a table from access using the .sendobject function.
This all works fine. The problem i have is i need to attacted to emails to the same email. Any idea's how this can be achieved.
Thanks
I have designed an Access database with a certain table called EmailAlerts.
This table has two fields: EmailMessage and Recipients.
The EmailMessage field stores the body of the mail to be sent to the corresponding email addresses in Recipients. E.g.:
EmailMessage | Recepients
Hello | abc@xyz.com
Goodbye | pqr@xyz.com
Now what I want to do is, whenever a record is added to this table, I want to send the email to the corresponding recipient. How can I do this?
Recently created a database with a form that the user provides problematic information. The form has a close button that has a macro attached that initated an emails and send the form information in a report to the end user . My problem is the function works great when the sender has a Outlook account. When the sender has a gmail account - the command will not work. I read that VBA can be written but I am not able to write SQL.My level with access is using built in functions and commands.
View 3 Replies View RelatedI have the following code in a module that sends out various email updates to me when I'm off site. On my PC it works perfectly whether I have Outlook open or not. I've installed the database on several other machines, but I'm getting a Run Rime Error 287 on the .Send line if the user has Outlook closed. Any setting somewhere in Outlook or Access that needs changing? Or is there something that can be changed in the code to ensure the email sends whether Outlook is open or not?
Code:
Public Sub SendEmailNotification(strSubject as String, strMessage as String, strAddress as String)
Dim olEmailApp As Object
Dim olMsg As Object
Dim strEmailBody As String
Set olEmailApp = CreateObject("Outlook.Application")
Set olMsg = olEmailApp.CreateItem(0)
[Code] ....
Using Access 2010; I have code that generates multiple emails to send using outlook. It works fine except that all emails go to my draft folder and I have to go the outlook and send them individually. This is fine when I have under 10 emails; but sometime it can get up to 50 or even 100 emails. What I have to do to send them from my draft all at once. The emails go to draft to inspect for errors.
View 1 Replies View RelatedI'm using CDOSYS and SMTP in a vb function to send emails via Ms Access 2003.
My code loops through a recordset an sends an email to the email address in the table.
However, all works fine until an invalid email address is encountered, at which point I get an 'Invalid address' error message and the code halts (obviously). BUT, if use 'On Error Resume Next' I get no error message but all consequtive emails are NOT sent.
How can I get the code to ignore the invalid email and carry on sending emails throughout the recordset?
In an Access 2007 module, is there a way of sending an email to a list of people stored as a list in a table in the database, rather than having to put all the names into the function?
I have a function I'm using to generate and send out an email to certain people, but the list is constantly growing so I'm looking for a better way to manage it! The main issue is having to kick users out of the database every time I need to update the recipients list... because it's stored in the code.
If I create a simple table containing all the names, how could I then ask it to use that instead?
This is the function I'm using currently - found on here and adapted to my own purposes
Syntax to use for the function: SendNotesMail "recipients", "Body Message", "Additional Text", "Subject"
Code:
Public Function SendNotesMail(strSendTo As String, strBody As String, strExtraText As String, strSubject As String)
'This public sub will send a mail and attachment if neccessary to the recipient including the body text and additional comments from the Active record
DoCmd.OutputTo acOutputReport, "REP09emailnotification", acFormatRTF, "x: endersgroup tendering databaseTenderUpdate.rtf", False
Dim Subject As String
Dim Attachment As String
[Code] ....
So I guess my question is: how do I get my recipients from a table into the strsendto?
At present I have a tblData, a tblPeople, a long union query and a report that displays its results. On a form I select a person from tblPeople (another field on that table contains their email address), run the query and report in that person's respect and email the results to them.
What I want to do is add a button which runs some VBA code which cycles through tblPeople, runs the query for each person, works out if the query has returned any records from tblData for that person, and if so - sends them the report.
I am using Access 2010
I have created a DB with many tables and I want to find a way where I can retrieve all the emails from every table (each one has a column with emails). Does anyone know what to do? If a record doesn't have an email address do I have to type N/A or just leave it blank?
View 1 Replies View RelatedHi
I am creating a recruitment db for 6 members of staff, I have created a form (add new vacancy). Within the form is a various drop down boxes where you can select each employee and drop down box to pick which company want a vacancy filling. What I wanted to do is when a new vacancy is put on the system, and the administration team select save record is it possible to email the employee to let them know a new vacancy has been added, and also email another administration department to send the employee a suitable candidate list with the information provided on the form.
Or am I asking far to much from access.
The two fields that are most important is who the vacancy belongs and which company want the vacancy.
The db is available if you require a look to have a better insight.
Thanks for all your help.
I recently posted a question in the REPORTS section asking if it was possible to generate a report that contains only the email addresses of my contacts to generate and send a mass email. There were no responses to that...so that makes me ask - Is there anyway in Access to generate mass emails using only the email address field in a table or query?
I am aware of other programs you can buy to do that - but was hoping to stay within Access.
Thanks for any help!
Hi guys, here is my problem.
I am sending emails when the user press a button, but the problem is:
1 - How to check is LNotes is open
2- How to know if the user needs to enter the password.
With the following code an email is sent ONLY if notes is open AND the psw is not required.
Public Sub Sendmailf(Task As String)
Dim nSession As Object
Dim CurrentUser As String
Dim DataBaseName As String
Dim nDatabase As Object
Dim nMailDoc As Object
Dim nSendTo(60) As String 'array for 60 e-mail address
Dim EmbeddedObj As Object
Set nSession = CreateObject("Notes.NotesSession")
CurrentUser = nSession.username
DataBaseName = Left$(CurrentUser, 1) & Right$(CurrentUser, _
(Len(CurrentUser) - InStr(1, CurrentUser, " "))) & ".nsf"
Set nDatabase = nSession.GETDATABASE("", DataBaseName)
Call nDatabase.OPENMAIL
Set nMailDoc = nDatabase.CREATEDOCUMENT
With nMailDoc
nSendTo(0) = vemail
.Form = "Memo"
.Body = Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Status: " & Me.status & Chr(13) & _
"Creation Date: " & Me.Open_dt & Chr(13) & _
"Effective Date: " & Me.effective_dt & Chr(13) & _
"Completion Date: " & Me.completion_dt & Chr(13) & _
"Requester: " & vreq & Chr(13) & _
"Actioned By: " & Me.Assignee & Chr(13) & _
"Description: " & Chr(13) & Me.description & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & _
"Validation Signature: ................................." & vreq
.sendto = nSendTo
.Subject = "Task: " & Task_Num & " is Ready to be Validated"
.Importance = "0"
.SEND (False)
End With
Set nDatabase = Nothing
Set nMailDoc = Nothing
Set nSession = Nothing
Set EmbeddedObj = Nothing
End Sub
thx for your help
I apologize ahead of time if this has been asked before but I can't seem to find it anywhere.I need to create an email using email addresses from an access table. I used the sendobject syntax in vba to test the process.DoCmd.SendObject acSendReport, "copy2nd", acFormatXLS, Me.cboMngEml, , , "Entitlement Review Report", , FalseHere are my questions:Is there a better way to do this?If I chose to do it with the sendobject method, am I limitted to 255 chars for the body of the email?Can I use a draft email I created in Outlook? If so, how would I do it?I am using Office 2003 SP2 in WinXP SP2. If you need more information, please let me know.Thank you.
View 1 Replies View RelatedMS ACCESS 2000 SQL
I need to find out which emails in our database have our domain emails mispelt incorrectly.
For example, our domain email should be miguelangel.duo@leoburnett.es but it may be mispelt miguelangel.duo@loeburnett.es. How can I run an SQL that return the
FirstName, LastName Email from the Extract080907 table with mispelt email domain names?
Is this possible?
I would like to import emails from outlook and I would need to select the fields which are required. It is importing some standard fields and the fields i would require is not part of that. ( For instance "Categories" field which is present in outlook)...
View 1 Replies View RelatedI have a client that has several users that need to send out multiple reports that are stored on a shared server drive. These PDF's are logged into a SQL database and the location of where they are stored each day and kept for several years. Is there a way to select several of these reports and attach them to an email that they can send off easily using Access 2010 or 2007?
View 6 Replies View RelatedI'm working in Access 97 (though I can use Access2000) and Outlook2000 and am trying to write a process that will go into a specified folder in a user's outlook and pull in the data from the emails there. The data will be in a standard csv format - but my biggest problem is trying to figure out how to systematically go into the folder, import the data from the email, and then move to the next email in the folder...
Any help would be much appreciated!
I'm sure this is here somewhere but I just can't find it.
I have a form where a selection of suppliers are selected, I then want to email each supplier a report attachment - headed up with their particular details - for them to complete and return.
I can use the SendObject to send one email with all reports attached, how do I split it up? Can I split it up?
hi i am trying to copy emails from a ms access document for work. (there are about 6000 of them) when i go into the data base...under the emails column i see ALL this
åëîõôèÀðáõìèåííåò®ãïí
its just lines of that!
if i cant copy all the emails this way, i will have to do 1 at a time with a program and it will take me literally 10 hours
please help
i dont wanna get fired lol
how can i copy the emails. In the program, the emails are all normal (you kno....like myemail@here.com) but in the access document, its like that
help!
Hello,
I am building a databse that registers all communication between a company and a customer. here is my question.
If customer A sends an email to the company how can I store that email in my database. I dont want to copy and paste the contents of the email to a memo field.
Is there a way to automate this?
Can someone help me try and figure out how I can get my code to not just pull the first email based on a dlookup from a table...
I am looking to enter information in a form and have outlook populated with to specific email addresses based on a groupid in the table. Right now this code works fine but only returns 1 email address not all with the same GroupID.
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stWho As String '-- Reference to tblUsers
Dim stEvalEmp As String '-- Person who assigned ticket
Dim stDelBidPrice As String '-- Delivery Bid Price
Dim stOverBidPrice As String '-- Override Bid Price
Dim stOverMeanPrice As String '-- Override Mean Price
Dim stOverOfferPrice As String '-- Override Offer Price
'-- Combo of names to assign price change to
stWho = Me.GroupID
stWhere = "ClientServices_tbl.GroupID = " & "'" & stWho & "'"
'-- Looks up email address from ClientServices_tbl
varTo = DLookup("[ClientEMAIL]", "ClientServices_tbl", stWhere)
RecDate = Me.Date
stSubject = ":: Price Change Request :: " & RecDate
stCusip = Me.CUSIP
stDelBidPrice = Me.DeliveredBidPrice
stOverBidPrice = Me.OverrideBidPrice
stOverOfferPrice = Me.OverrideOfferPrice
stOverMeanPrice = Me.OverrideMeanPrice
'-- Evaluators employee who assigns ticket
stEvalEmp = Me.EvalEmpId.Column(1)
stText = "A price change has been requested by Evaluators Department." & Chr$(13) & Chr$(13) & _
"This price change has been requested by by: " & stEvalEmp & Chr$(13) & _
Chr$(13) & _
"Price Change Details:" & Chr$(13) & _
"Received Date: " & RecDate & Chr$(13) & _
"CUSIP: " & stCusip & Chr$(13) & _
"Delivered Bid Price: " & stDelBidPrice & Chr$(13) & _
"Override Bid Price: " & stOverBidPrice & Chr$(13) & _
"Override Offer Price: " & stOverOfferPrice & Chr$(13) & _
"Override Mean Price: " & stOverMeanPrice & Chr$(13) & _
"This is an automated message. Please do not respond to this e-mail."
'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
DoCmd.GoToRecord , , acNewRec
End Sub
I have an excel spreadsheet that I imported into a a table called LBCItyProfiles.
I have Another excel spreatsheet that contains our portal users info, I imported it into a table called Export.
I need to see which Emails Do Not Exist in Our Export database but exists in the LBCItyProfiles.
Both Databases have fields called EMail. I need to return the FIrstName, LastName and Emails of users that do not Exist in our Export database. I should not return Emails that are in the portal but not in the LBCityProfiles because maybe thats why my earlier SQL was not working:
SELECT LBCityProfiles.Email
FROM [LBCityProfiles] LEFT JOIN [Export] on [LBCityProfiles].Email = [Export].Email
WHERE [Export].Email IS NULL
This SQL returned Emails that Existed in the Export database but not in LBCityProfiles database, I do not want it to do that. I just need to see how many LBCity ids did not make it to the portal.
There are so many threads on here for emailing a PDF version of a report. I've put together a nearly complete bit of VBA that will do what I want - except for one thing.
Basically I have a personnel table with an email field. I Also have a field that details if a person is available or not ("Home" means they are available)
I need to create a string that is comprised of all the email addresses of the personnel who are "Home". In another thread I read that this can be done using a SQL statement.
So this is the VBA that I have so far - I commented the SQL for now because I don't quite know how to use it here.
Also, I have created the string, called "emailsList"
Code:
Private Sub Email_Button_Click()
'SELECT Personnel_Table.Email FROM Personnel_Table WHERE (((Personnel_Table.Status)="Home"));
Dim emailsList As String
DoCmd.SendObject acReport, "AWACT_Report", acFormatPDF, emailsList, , , "Training Update", "Attached is the newest Training Report.", True
End Sub
Do I need to do a loop that concatenates?
I work for a firm who have a few thousand clients and we are wanting to go through a process of checking with them that the data we send them is going to the email address they would like it to go to. However in some cases we don't currently hold an address so we are contacting them by phone to get the addresses over the next few weeks.
The way I've chosen to do this is to use the excellent link between Access and Outlook to send an email to the address we have on file (or have gotten) with a very light form they can optionally fill in to update the email address if desired.All seems well in testing this with 2 exceptions:
1) I have 2 email boxes in outlook, my "personal" one and a group mailbox. I'd like the emails access sends to come from the group mailbox but cannot see an option to control this.
2) We're likely to send the emails out in tranches - is there a way to have a single table the drives the email process but some how have it know that we have sent the emails out for certain clients such that when I send a second tranche, it doesn't re-send to clients that have already been contacted?