Multiple Email Addresses In SendObject

Jun 13, 2005

Im using the code below to send information by email. BUT:

I want to send the same information to more than one recipient. can i write more than one address in the SendObject?

What can i do if i do not know prior to sending how many addresses i want to include. (this means that once i might have tosend it to 1, then later to 3, etc...)?

The code is:

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
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Dim stWho As String '-- Reference to tblUsers
Dim stHelpDesk As String '-- Person who assigned ticket
Dim strSQL As String '-- Create SQL update statement
Dim errLoop As Error

'-- Combo of names to assign ticket to
stWho = Me.cboAssignee
stWhere = "tblUsers.strUserID = " & "'" & stWho & "'"
'-- Looks up email address from TblUsers
varTo = DLookup("[strEMail]", "tblUsers", stWhere)

stSubject = ":: New Help Desk Ticket ::"

stTicketID = Format(Me.txtTicketID, "00000")
RecDate = Me.txtDateReceived
'-- Helpdesk employee who assigns ticket
strHelpDesk = Me.cboReceivedBy.Column(1)


stText = "You have been assigned a new ticket." & Chr$(13) & Chr$(13) & _
"Ticket number: " & stTicketID & Chr$(13) & _
"This ticket has been assigned to you by: " & strHelpDesk & Chr$(13) & _
"Received Date: " & RecDate & Chr$(13) & 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

'Set the update statement to disable command button
'once e-mail is sent
strSQL = "UPDATE tblHelpDeskTickets SET tblHelpDeskTickets.ysnTicketAssigned = -1 " & _
"Where tblHelpDeskTickets.lngTicketID = " & Me.txtTicketID & ";"


On Error GoTo Err_Execute
CurrentDb.Execute strSQL, dbFailOnError
On Error GoTo 0

'Requery checkbox to show checked
'after update statement has ran
'and disable send mail command button
Me.chkTicketAssigned.Requery
Me.chkTicketAssigned.SetFocus
Me.cmdMailTicket.Enabled = False

Exit Sub

Err_Execute:

' Notify user of any errors that result from
' executing the query.
If DBEngine.Errors.Count > 0 Then
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If

Resume Next


Exit_cmdMailTicket_Click:
Exit Sub

Err_cmdMailTicket_Click:
MsgBox Err.Description
Resume Exit_cmdMailTicket_Click

End Sub

View Replies


ADVERTISEMENT

Modules & VBA :: Generate Multiple Email Messages To Different Email Addresses

Jul 16, 2014

I have made a query with the name "Confirmation" and it is setup like this:

Name trainee Email Training
John John@mail.com Tr one
Mary Mary@mail.com Tr two

I also made a button in a report with the title "Send Mail" now is my goal that if i press that button automatically multiple e-mail message's will be generated with data from people in that query. So if click on that "Send Email" button i want two different mails messages generated that will be send to John@mail.com and Mary@mail.com with in the mail body their data.

View 13 Replies View Related

DoCmd.SendObject Used In Multiple Email Buttons

Dec 28, 2007

Have found some code that originated from this forum, and have modified it to suit my needs. There's one form with all the information, that has multiple buttons and subsequently multiple functions to generate emails, with each button/email to generate a different format and content. The first use of a button works fine, but trying to use the next button right after does nothing. If you exit the form and re-enter, you can then use the next email button, but that's a pain and the users won't like that. Can anyone help? I've pasted a sample of the code that is being used below, it's duplicated and changed slightly for the other buttons. I currently have the button linked to a macro that does other things like saving, and setting dates and then running the function.

Thanks,
Don
-----------------------------------------------------------------
Public Function AckEmailNew()
On Error GoTo Err_cmdMailTicket_Click

Dim varTo As String '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Dim strSQL As String '-- Create SQL update statement
Dim errLoop As Error

varTo = Me.ClientEmail
stTicketID = Me.STSITicket

stSubject = "Ticket/numéro de référence: " & stTicketID


stText = <<My text goes here>>

'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1

On Error GoTo Err_Execute

Exit Function

Err_Execute:

MsgBox Err.Description
Resume Exit_cmdMailTicket_Click

Exit_cmdMailTicket_Click:
Exit Function

Err_cmdMailTicket_Click:
MsgBox Err.Description
Resume Exit_cmdMailTicket_Click

End Function

View 5 Replies View Related

Modules & VBA :: Populate Multiple Email Addresses

May 21, 2014

I am trying to populate multiple email addresses based on a table and a yes/no check box. If the checkbox is checked, they receive an email. I have a table with Employee/email combobox with the second column being the email address, and a checkbox.

View 14 Replies View Related

General :: How To Send A Single Email Message To All The Email Addresses In Query

Jun 2, 2014

I have a query (Access 2007) that contains a field named "email" (which contains email addresses, of course). I want to email everyone in the query and they are all going to receive the same message. My email to them doesn't have to be personalized and I don't need to collect data from the recipients. I don't even need a reply to the email I send.

View 12 Replies View Related

General :: Send A Specific Email From Outlook To All Email Addresses Within A Query

Jan 21, 2014

I have a database that I can use to create a query, grouping companies by city. I then want to send a specific email I have created in outlook to all of the email addresses in the query.I do not need to include names.

View 6 Replies View Related

Exporting Email Addresses To Email Program

Sep 22, 2005

I have an Access database list of people, which includes their email addresses. I want to export the email addresses to Hotmail or Netscape email.

How can I do that?

View 1 Replies View Related

Modules & VBA :: Add CC Email Addresses Into Automated Email?

Aug 3, 2015

I have an automated email system (Lotus Notes) in a Access database I have created and am looking for the code needed to add up to 3 c.c addresses into an email prior to sending automatically.

The code I have to send the email to the To: individual is all working but what code I need to add and where for the c.c addresses of which there could be 1, 2 or 3. The control for To address is EmailTo = CustCopyEmail The controls for the 3 c.c emails are cc_EmailAddress, cc_EmailAddress1 and cc_EmailAddress2.

Here's the code I have:

Private Sub SEND_CC_Click()
' Set up the objects required for Automation into Lotus Notes.
Dim Maildb As Object 'The mail database.
Dim Session As Object 'The Lotus Notes session.
Dim MailDoc As Object 'The mail document itself.
Dim UserName As String 'The current users Lotus Notes name.

[code]....

View 8 Replies View Related

SendObject To More Than One Email Address

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

Forms :: SendObject Email Not In Sent Folder

Jun 2, 2013

I am sending an email using SendObject, like this:

DoCmd.SendObject acSendNoObject, , , eMailAddress, ccAddress, , Me.Subject, Me.MessageBody, 0

The email is sent correctly. However, in Access 2003 a copy was posted to the Outlook 'Sent' folder. Since we have moved to Outlook 2010, a copy is no longer posted to the 'Sent' folder. We miss having that copy.

Is there an option that I can set to post the email to the user's 'Sent' folder? If not, what about a BCC? How can I get the user's email address?

View 3 Replies View Related

SendObject Rejects Some Email Names?

Jan 25, 2012

I'm using DoCmd.SendObject to send an e-mail using Windows Live Mail.

Works great UNLESS the recipient name contains a "_" character as in

joe_blow@isp.com. joeblow@isp.com works just fine.

I get RT Error 2293 "Access can't send this e-mail message"

Is this a WLM problem? SendObject problem? VBA? my code?

Are there character restrictions for the e-mail name? If so that is bad because these are valid names for users. What am I doing wrong and how do I correct the syntax so that these e-mail names can be accepted?

WIN 7, Access 2010

View 14 Replies View Related

General :: Sending Email With SendObject - How To Determine User Name

Apr 27, 2015

When I send an email from Access with SendObject, how does it determine the user name, the 'from' name. Is it just the user's Outlook name? Do I have any control over that?

View 1 Replies View Related

Email Addresses

Jun 12, 2006

Simple query from an amateur. I have a list of people in a table, each with thier email address. How can I convert this into a list of addresses to paste into a group email? (Ideally with ";" as a separator between addresses)

View 4 Replies View Related

All Email Addresses In The To: Field

Dec 14, 2006

Please please please!

It's driving me crazy!

Is it possible to send e-mails to all of your e-mail addresses in one single e-mail?

Right now I am able to open up an individual e-mails for each of my stored e-mailo adresses but it would be so much better (and more user friendly) if I could just have one e-mail with all addresses in the To: field.

Any help would be really appreciated.

Rob

View 3 Replies View Related

Validating Email Addresses

Mar 25, 2008

Hi
I have a large file where I am trying to clean up the data.
One of the fields is the email address.
I want to check if the email address has something followed by an @ symbol followed by something else. If it does not, then I want to replace it with a null value.
Can you help?
I thought that I could use the wildcard features such as <>*@* but this does not appear to be working.
Noel

View 6 Replies View Related

Using A Query To Extract Email Addresses

Aug 17, 2005

Hi there,

I am a relative newcomer to Access, and am trying to work out if there is a way to isolate email addresses in a line of text, and delete all the text around them.

I have basically got a column which contains blocks of text and I want to extract the email addresses that are embedded within them. Does anyone know if this is possible by running queries?

Thank you in advance for any help! :confused:

Dan

View 5 Replies View Related

Email Reports Using 2 Addresses For Several Individuals

Jul 14, 2014

In my database for our charity there is a field for email addresses. Most of the contacts have a single email address and we can send them their individual reports without any problem. However a number of the contacts have 2 email addresses and these are stored in the email address field with a semicolon between the 2 addresses. However the system can't send emails to these contacts! Are we storing the addresses in the wrong way? Or is there some reason why Outlook won't regard the 2 addresses as separate email addresses - does it think that it is one strange email address that it doesn't recognise?

View 14 Replies View Related

Modules & VBA :: Concatenate All Email Addresses From Table

Aug 4, 2013

I have a table, "TBL_Email", which simply contains a list of email addresses in a field called "email".

I would like to concatenate all of them together into one string, and add semi-colons to the end e.g.

"123@abc.com;456@def.com;789@hij.com"

I believe a may need a record set, but i'm not entirely sure how they work.

View 4 Replies View Related

Modules & VBA :: Search Outlook For Email Addresses

Nov 25, 2013

How I could initiate a search from MS Access on an Outlook folder for an email addresss.

I would like to to work just as if you were using the outlook 'Try searching in All Mail Items'

View 11 Replies View Related

General :: Concatenate Email Addresses As A Query Result

Jul 2, 2014

I have a parameter set on the query at run which filters by Region i.e. the box pops up and they enter a criteria..I would like to have a field entered next to Email that would take all the Email Addresses in my query result and concatenate them so essentially I have an email list I can pop in Outlook.

Or alternatively, a solution to allow access to these email lists via a button on a form. It has to be something very simple for an end user to access. For instance right now, to get there list they hit a button to run the query then enter the parameter then if desired, hit another button to export to excel. Today, they use Excel for everything and are used to having the concatenated email addresses in one cell in excel. For this reason, I am trying to have the email addresses concatenated in the query results to mimic what they are used to today. But I am not sold on it if there is a better way that is easy for them.

View 14 Replies View Related

General :: Using Access Database Of Suppliers Email Addresses And Use Them On Outlook?

Oct 24, 2012

I need to let all our suppliers know we have moved and wanted to do this by email. how I use Access database of suppliers email addresses and use them on Outlook.

View 1 Replies View Related

General :: Bulk Email A Report Using Addresses Contained In A Table

Nov 4, 2014

I've a table containing ebay sales information, let's simplify it...

Code:
buyer email product quantity price total Receipt Number
A Smith a.smith@acme.com gloves 1 $10.00 $10.00 1
P Brown p.brown@jones.com hat 2 $15.00 $30.00 2

After a lot of faffing about (& learning about sub reports), I've now got access producing a sales receipt from the data....it's in the form of a report (the report generated is one long continuous report, with each page in the report relating to a sales receipt number)

What I want to do now is email each page of the the report (like I say, each page is essentially an individual sales receipt) to the associated email address in bulk.

Therefore there may be 20 sales receipts in a long continuous report, how would I break them out one by one to a pdf file & send it to the correct email address which is contained against the sales receipt number in the same table?!!!

View 4 Replies View Related

Modules & VBA :: Loop Through Query Results To Extract Email Addresses

Jun 27, 2013

I am trying to loop through a query results to extract email addresses from a query result.

I have the following code

NameCriteria = Forms![MainMenu]![tbl_Course_Details]![Course_Name].Value
DateCriteria = Forms![MainMenu]![tbl_Course_Details]![Course Date].Value
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sqlStr As String

[Code] .....

If i run this in access as a query then it returns results but when i run in there then it says no current Record and i cant work out why?

Someone on another post said that sql uses US date format so i tried converting to us date and still no results?

View 6 Replies View Related

"hyperlink" Data Type For Email Addresses?

Jan 17, 2006

Is there an easy way to have Access format all values in a particular field with the hyperlink data type to add the mailto: prefix so you can just click on the links to email someone?

View 8 Replies View Related

Contacts DB - Single Organisation, Multiple Addresses

May 9, 2005

Hi.
Im a beginner-intermediate access user (I guess) and I am working on a stakeholder management database, which essentially enables me to separate organisations, individuals, the affiliation between the two, and addresses of either individual or organisation. (pic of relationships included).

Originally, I stored address values on each respective table (ie. org address was on the org table, individual address on the individual table). However then it became apparent that one organisation (in my line of business) can have many address sites, therefore the need to nominate multiple addresses.

So I figured that the best method would be to have an address repository, and orgs or individuals are assigned to that address via a MultiAddress table. The preferred postal address would be nominated by an address preferred field in another junction table.

Seems to work ok through the form (see form pic attached), but Im concerned that when I try to run queries/reports that I'll get duplications or other anomalies.

Can anyone provide me with some tips or advice???

Cheers

View 2 Replies View Related

Display Multiple Addresses In A Tidy Manor

Feb 14, 2006

Hi,

Most of my customers can use multiple addresses eg. Head office/delivery and invoice etc.

I am looking for a way to display them easily without using the nasty Record selectors in the subform (see attached "current.jpg"). Datasheet mode looks poor too so if I can avoid this I will.

Ideally would like a subform with tabs labelled Delivery/invoice etc. (see attached "ideal.jpg").

All the addresses are form the smae table, how can I display one specific record on 1 tab and another record on another tab? Am I even thinking along the right lines? Any advice welcome

(using A97 @ work)

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved