Hoping someone can help - need to know if there is a way to use a Outlook message other than the blank one that is used with the send object macro.
Maybe a normal message with a signature, template or something - when the macro is run, no formatting is included with the e-mail message, and the body of the message is limited to 255 charaacters.
Would like to use a customized message, and I need the send object macro to place the object in that message format.
If anyone can help, I would greatly appreciate it...thanks.
Is there a way to tie a send object to a combo box on a form? I know I can write a query to pull information from a selection in a combo box using the [form][formname]thing. What I'm trying to do is I've created a database that allows many users to enter a request in a form. then when the form is complete they need to E-mail the form to their respective manager. I want them to choose from a combo box, then click on a button and the form is e-mailed to their manager for approval. I've gotten everything else to work accept for being able to choose the manager. I know I could also leave that blank and it will ask for them to enter the recipients name. If that's my only option I'm ok with that.
Thanks
PS If this issue has already been addressed I couldn't find it.
A client wants to e-mail newsletters using a non-default Outlook account. The code below does everything the client needs except setting the SendUsingAccount. In debug I can see that the correct account is assigned, yet all of my testing results in e-mails where the From line is the default account. The test setup uses my own isolated SMTP server, so when I look at the e-mails sent the sender is the default account. The default account's Sent folder shows the sent mail, which is not what we want.
Code: Sub prepEmail() Dim frm As Form, startDate As Date, endDate As Date Dim rs As DAO.Recordset, strSQL As String, intNewsLetter As Integer Dim rsEmail As DAO.Recordset, rsNewsletters As DAO.Recordset Dim OlApp As Object, ol As Object Dim olMail As Object, olAcct, olAcctTemp
Hey there, folks, Got one I need some help on. Perhaps one of you has tried something like this before... I need to create a tool that will allow me to do the following:
1. Search an Outlook email box for all emails that have a keyword in the subject line that I have chosen from a drop list 2. Open all qualifying emails 3. Print all of them, including all attachments associated with them 4. Close the emails, and move them all to a folder
I've got the email box linked to Access (we've got 2003 running here), and I have no problem accessing the emails and even deleting them, etc. I can see if they have an attachment, but am unable to discern where it is or how to get to it to open it. I also cannot get the emails to show as "read" when I open them using the db. There is a col for "contents unread," but it is a number variable (I cannot change this since it's a linked table), and all rows are blank anyway. It is important that I am able to print them including the attachments and move them out when done.
Whaddya think?? I'm open to any and all suggestions! Thanks in advance, Ceejay
I am trying to modify the following code to send an automated e-mail using Microsoft Outlook instead of Lotus Notes. We recently switched e-mail clients and now the older code does not work. I have tried to comment in all areas to indicate where the new Outlook code has been inserted.
Private Sub SendEmail(ByVal Subject As String, ByVal Body As String) 'The bulk of this code for Lotus Notes comes from this website: Dim copy(100) As Variant Dim strSQL As String Dim rsTemp As Recordset Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name
I'd like a command button to open Outlook and create a new email message with the To and Subject fields already populated with what I want, is there anyway to do this?
I have a VBA module in my Access 2010 database that will send a report as a PDF via email to a predetermined email address. the only problem using the docmd.sendobject method is i keep getting a pop up that says "A program is trying to send an e-mail on your behalf. If this is unexpected, click Deny and verify your antivirus software is up-to-date."
I have a windows task set up at the same time each day to open this database which runs an autoexec that creates this report and using my VBA module sends the email. i want it to just send the email without any imput from me. I want automation.
Here is my code that i am using to create and send the email
"Private Sub Report_Activate() filename = "Name of file" & Format(Me.Date_time_returned "MMDDYY") & ".pdf" DoCmd.SetWarnings False DoCmd.SendObject acSendReport, "Name of file", acFormatPDF, "the destination email address goes here",,, "Request completed and sent " & Format(Me.Date_time_returned, "MMDDYY"), "Subject of email goes here", False DoCmd.SetWarnings True End Sub"
i have a form, every post on this form is connected to a deliverer in a table, every deliverer has a faxnr. I want to be able to push a button on a form and it will fax the form to that deliverer, how woud this be done? Ive checked that microsoft page about send object and stuff but i dont get much and it doesnt seem to be what i want to do. Is this thing even possible in access?
When i try a sendobject command, i get "coudnt start the mail software, check that the software works" translated from swedish.@@1@@1
I used sendobject to send the object via Lotus Notes, but I want to skip to click the Send button from the Lotus Notes, everytime, when I sent, it goes to the Lotus Notes, then I need to click the send button again on the Lotus Notes for confirmation to send the mail. How can I skip it?
I am using a command button to email an invoice to a customer using the sendobject function, whilst this almost works correctly it is adding an additional mailto:address along with the correct email address.
Example: CorrectEmailAddress and then#mailto:CorrectEmailAddress
The code I am using is:
On Error Resume Next Dim Cusemail As String Cusemail = Nz(DLookup("Email", "invoiceemailQ", "orderID=" & OrderID), "") If Cusemail = "" Then MsgBox "No email Address" Exit Sub
I want to sent out my report as a pdf file with my macro.. I've been trying to use the VBA
Code: Option Compare Database
Sub Fix1() DoCmd.SendObject acSendReport, "MarketRiskControl_HighestDiffs_AsOfCurrentDate", "PDFFormat(*.pdf)", "my mail@mail", "cc", , "SD Counterparty Report as of Current Date", "Regards, Trading Risk Control", False End Sub
With this construction I don't have enough control over the mail, and worse, I get an Outlook message when the mail is sending which I have to answer.
2. option
Code: Dim oMail As MailItem Dim oAtt As Attachment
Set oApp = CreateObject("Outlook.application") Set oMail = oApp.CreateItem(olMailItem) DoCmd.OpenReport ReportName:=sReport, View:=acViewPreview, WindowMode:=acHidden Set rpt = Reports(sReport)
[code]...
with this construction I have to enter an existing report.pdf on my filesystem (bold line), but I want to pass the rpt object straight to the mail as an attachment.
I have a contact form on our website which sends an email to the business dev team saying that the user has requested to be sent product sheets. The email contains the users name, email, phone number, and a few other fields. Is there a way I can send the details of these emails to my access database automatically?
ok, i have been searching on google and the forums for sending forms/reports as outlook atachments.
all the examples i have seen are more complicated than my one.. i have one form.. and i just want to email those details.. in the form are the fields, one textbox where you put the email address, and one send email form button..
i got it working using a long module, that i didnt understand..and then i was told about the DoCmd.SendObject method which looks a lot easier..
i have one request, in the simple database i have uploaded, will someone show me where to put the code.. the db is VERY simple, and quick (one form with a send email button).. and if anyone can spare a few minutes to get this one working i will be very grateful..
Is there a way of doing the above? I have several distribution lists (some >100 recipients) defined in Outlook, and would like to use the Docmd. Send Object command to send messages to one or several of them. I cannot find a way of defining a distribution list as any of the To, Cc or Bcc parameters.
I'm trying to use Access to send an automatic email reply upon receiving a request from a customer/employee, telling them that their request has been received and this is the tracking number and the due date of service completion. How can I do that? And I want it using Outlook because all the contacts are saved in Outlook and all emails sent and received through Outlook. And the version is Access 2010.
I have a query that runs based on a parameter a user selects on a form.
I want to dynamically create the sendobject file name based on the parameter the user selects.
Example:
My form has a parameter named medicine. When the user checks the checkbox next to medicine it runs a query for records labeled as medicine but sends the e-mail output as the query name. I want something like medicine.txt etcc...
I have the code below which takes information from a form on access and sends it over to the correct place on an excel spreadsheet template. This works fine but I then need it to save and send on outlook.
The issue I am having is that the saved document is not attaching to the e-mail. The subject etc all work fine but the excel spreadsheet just doesn't attach. When I go into the folder I have specified for the document to be saved in it isn't there either. :0(
The code for the e-mail "callmail" function works perfectly for word documents but I don't know if it is different for an excel file.
Code:
Private Sub Command154_Click() On Error Resume Next Dim appExcel As Excel.Application Dim wbook As Excel.Workbook Dim wsheet As Excel.Worksheet Set appExcel = New Excel.Application
I have a strange behaviour on a module which reference to Microsoft Outlook Object Library 14.0. The below code got an error 461 on the folderoutlook.display code,i.e. the method is not found. The funny thing is that the same code gives no problem in another accdb file, exactly same code with same reference on same machine.
Set appOutlook = GetObject(, "Outlook.Application") Set appOutlook = New Outlook.Application Set namespaceOutlook = appOutlook.GetNamespace("MAPI") Dim folderOutlook As Folder Set folderOutlook = namespaceOutlook.GetDefaultFolder(olFolderInbox) FolderOutlook.Display
I'm trying to have a command button send info on the form straight to Outlook as a meeting. So far, the code below works apart from the address bit. I need the code to automatically add the same 2 email addresses as recepients everytime.
Error message highlights the red line below with the following message:
Runtime error '438' Object doesn't support this property or method
I'm new to VBA, so don't understand what is wrong here. The reference is set, I've tried different permutations of the "To:" & "Recipients.Add" for the email address with no joy.
Code: Private Sub cmdSend_Click() Dim outApp As Object Set outApp = CreateObject("Outlook.application") Set outmail = outApp.CreateItem(olappointmentitem)
I've setup a selection form that returns a specific list of email addresses in a query.
What I can't work out is how to press a button and have the email addresses populate the To: field in a blank Outlook email - I don't need any bells or whistles.
