Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    MS ACCESS






SuperbHosting.net & Arvixe.com have generously sponsored dedicated servers and web hosting to ensure a reliable and scalable dedicated hosting solution for BigResource.com.







DoCmd.SendObject Used In Multiple Email Buttons


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 Complete Forum Thread with Replies
Sponsored Links:

Related Messages:
Multiple Email Addresses In SendObject
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 !   View Related
Multiple Email Buttons One Access Form!!!
Hello to all the Users!
I am new at Access and new to programming.
I have created an Access form that has four labeled control buttons each one with an individuals name. I have the corresponding code:

Private Sub Email_PersonOne_Click()
DoCmd.SendObject acSendNoObject, , , "personone@yahoo.com", , , "Work Request", "A new work request has been submitted."
End Sub

When I have one button and one code the email function works. I want the users to be able to select one out of four people who they want to notify upon completion of the form. So I have four buttons and changed the email address and the names on the buttons but now none of the buttons work.
The code is on the same page separated with just a line between each section.

Does this make sense?
Any input would be greatly appreciated.
Thanks in advance for your time and help.
Sincerely,
DebraF

View Replies !   View Related
DoCmd.SendObject
Hello,

I have spent sometime working on sending access reports to customers as asFormatHTML.

Code:DoCmd.SendObject acSendReport, "rptConfirm", acFormatHTML, strEmail, , , "Trade Confirms from Kyte Options " & date, , no, False

Trouble is some of my customers cannot read the attachment! Is it possible to have the message body display a txt of the report/query?

Thanks for any help you can give.
Jon

View Replies !   View Related
DoCmd.SendObject AcReport
I am trying to find a way to use the "DoCmd.SendObject acReport" feature WITHOUT using Outlook. Does anybody know of any code or a setting that will enable me to specify another e-mail program, such a Thunderbird?

I should add that I am using Access 2002, SP3, running in Windows XP Professional, Version 2002, Service Pack 2.

Thanks

rkc

View Replies !   View Related
SendObject To More Than One Email Address
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 Replies !   View Related
Pass Thru Query With DoCmd.SendObject AcSendQuery, "aaaaa", AcFormatXLS
With a pass thru query this doesn't work - somehow the file doesn't contain any data - can I get this to work with for a pass thru query.

(I have tried using a another query to SELECT * FROM Passthru but that has the same problem, all is fine when using a standard access query with no pass thru involvement)

Cheers!

View Replies !   View Related
Round Buttons Or Oval Buttons Instead Of The Normal Square Buttons
Hello everybody,

I’m new here and I have a question for you..

Is it possible to place round buttons or oval buttons on your forms instead of the normal square ones?

Greets,

Tom

View Replies !   View Related
Multiple Command Buttons
Was woundering if the was a way to habdle multiple command buttons with one procedure. I have done a little VB.Net and I remember that you coud use one sub to handle multiple buttons using the handles key word. I was wondering if Access could do that. What I have is 37 command buttons named cmdView1 through cmdView37 all I really need is the number that prefixes the command buttons name. I know how to pull out the number but I can not figure out how to use only one sub procedure for all 37 buttons. Any help is appreciated.

Frank

View Replies !   View Related
Multiple Toggle Buttons Working Together
Hi - I have another problem. I hope you can help me out on this one.

Right now, I have 3 toggle buttons to control the visibility of 3 subforms. However, I only want a single subform to show at any given time. So, if I were to select toggle 1 it should give me subform 1, and afterwards if I select toggle 2 it should give me subform 2 WITHOUT showing me toggle 1.

Is there anyway to get the toggle buttons to work with each other?

Thanks,
:)

View Replies !   View Related
Multiple Buttons On A Main Form
Hi All
I have a main form which displays some basic info aboute a site. I would like to be able to place multiple buttons down the right side of the form. This would be similar to having a seperate column which is not affected by the number of records on show. I have considered placing them in the form header but think a column down the side would look much neater.
Any help would be much appreciated.
ChrisD

View Replies !   View Related

Copyright © 2005-08 www.BigResource.com, All rights reserved