I have a question about sending secure emails by VBA code in MS-Access. I have a Access application within you also can also send emails by VBA code using outlook. Everything works fine, but now the recipient wants to receive the mails with a digital signature by S/MIME.
I got a digital certificate from the recipient as a pfx-file.
Is this possible in Access using outlook ?
I use MS-Access 2010 en Windows 7
How would I set up an Outlook email using a list of recipients from an Access table? I'd like to be able to run this from Access 2007 and not Outlook. However, once the email is set up, I'd like to be able to go into the email and add subject, body, etc. before sending the email.
View 5 Replies View RelatedI would like to update the following code I have been using to send emails, from Access 2010 via Outlook 2010, to include my signature block with hard returns in between each line and a few above the signature.
Lets say the signature would be:
My Name
My Company Name
My phone number
My Reference
I tried next to: stMessage = Me![EmailMessage] &"My Name" & Chr(10) & Chr(13) & "My Company Name"
etc.
It does not work..
Here is the coding :
Code:
Private Sub SendEmail_Click()
On Error GoTo ProcErr
Dim stLinkCriteria As String
[Code]....
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'):
Private Sub Command414_Click()
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
[code]...
I'm working on a database for work that email's the current record after the form is completed. I have a attachment field in the table called Photo and some record's have a photo attached and other's don't. The code below works great with records that have a photo attached, but I get a path not found if I try to email a record that does not have a photo. I know that I need to put some form of code to check the photo field for a attachment, but I'm having a brain fade as to just what the code is.
Code:
Private Sub eMail_Report_Click()
Dim oFilesys, oTxtStream As Object
Dim txtHTML As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
[Code] ....
i am trying to send a email with a pdf-report attached based on a report (rap_factuur_klant_pdf).I am using MS Access 2007 and Outlook 2007..
Code:
Dim sAddr As String, sSubj As String, sFor As String
Again:
sAddr = InputBox("E-mail address:")
sSubj = "Report"
sFor = Left(sAddr, InStr(1, sAddr, "@") - 1)
DoCmd.SendObject acSendReport, rap_factuur_klant_pdf, acFormatPDF, sAddr, , , sSubj, "BLA BLA BLA"
DoEvents
I use a macro (SendObject), which works, but it requires Us, or someone to go into Outlook to click on send.I'm new to vba, do I have to code something on outlook to send automatically?
View 6 Replies View RelatedI have this code below in order to send query through outlook. How can I display the mail and not directly sending it?
Private Sub Command64_Click()
Dim message As String
Dim rs As Recordset
Dim vRecipientList As String
Dim vMsg As String
Dim vSubject As String
[Code] .....
I am a College Instructor and I would like to make a Database that will regularly email me a list of Students who are approaching the mid-point of their Program.Is it possible to program Access to email a list with Student Names, Registration Numbers, etc, etc. by a given date?
As of right now I have a Database with all of the students' pertinent information but I have to manually comb through the Database each week to see which students will require a Mid-Term interview that week.
I have this VBA code:
Option Compare Database
Option Explicit
Private Const URL_CDOCONFIG As String = ""
Public Function SendEmail(ByVal sTo As String, ByVal sFrom As String, _
Optional ByVal sCC As String = "", Optional ByVal sBCC As String = "", _
Optional ByVal sSubject As String = "", Optional ByVal sBody As String = "", _
[Code] ....
It is being called with the following macro:
SendEmail("gregory.west@dbwsys.mb.ca","vba@dbwsys. mb.ca","","","Subject line","Body of eMail here")
But I get this error message.
The "SendUsing" configuration value is invalid.
I am trying to send an email from a form in Access 2013 using fields on the form as part of the email body and I can't seem to find code to just do this.
I don't need to loop through tables as the send email address etc will be on the form together with appointment times etc ...
I have code that allows me to drag and drop an email to an access field, which then stores that email on the local / network folder. Another field with that email's file path is also displayed.
My big question is: knowing the email's file path, how can I have the system open those (network/folder) saved emails as a reply (not automatic send)?
I envision this as being triggered by a _Change event; if a drop-down changes or is selected, then the system reads the location in the 'Email Location' field, and opens the reply to that email.
I have been able to create code to send email for my ticket system but now have a need to add an additional recipient. I would prefer this recipient to be add in the CC field. This email address will come from its own table. I have tried to figure this out myself but I can't get anything to work for me . I am fairly new to VBA and all of my experience is just through trial and error (mostly error). I have attached my original code below ....
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
[Code] ....
Code:
Public Function OPEN_SESSION() As Boolean
Dim objSession As Object
Dim strServer As String
Dim strMailFile As String
[code]....
but for some reason my form is not updating after sending the email.
I would like to set a flag when a report gets emailed.
View 14 Replies View RelatedI'm sending an email from a form to Outlook express. But before it opens Outlook I get a question that states "a program is trying to access email address you have stored in Outlook" I then have to click ok and then another window opens and askes the same question. How can I eliminate these warning messages??
Thank You
I am currently updating an Access database, any way to send an OLE Object (in this case an Excel Spreadsheet) as an attachment to an email address using VBA code? I made a form that shows the Excel Spreadsheet when the record is brought up, but I need to know how to send just the Excel Spreadsheet and not the other information on the form.
Also, if there is an alternate way to have an Excel spreadsheet embedded into an Access form, i'm open to change. The user wants to be able to see the Excel spreadsheet and send it to their supervisor without having to locate the Excel spreadsheet on the hard drive.
I'm trying to set email address for "Cc" using "Like" but showing error 13 Type mismatch. Problem only red mark code either all are working fine.
Code:
Private Sub cmdSendMail_Click()
On Error GoTo ErrorHandler
Dim strTo As String
Dim strSubject As String
Dim strMessageText As String
[code]....
I have access db sending report with outlook every Monday.
But the problem is if outlook is open when I start the db, email goes in to outgoing folder and msg box of outlook opens saying " outlook will close after countdown if I do not hit the "DO NOT EXIT" button or "EXIT AND SEND LATER" button.
If I hit "EXIT AND SEND LATER" button, it sends next time I open the outlook.
Is it possible to prevent outlook doing this?
I am trying to send a report to a list of employees. I have a query that generates the report into the layout I want and includes the e-mail address of who the recipient should be. The report looks something like this:
--Employee Name--
--E-mail address---
-Hire Date----Tenure-
-Attendance-
-Quality Score-
...etc...
I need to send, for each row in the query, this report based on the results of that particular row. How would I go about making a e-mail template that would be used, or at least sending the report as a PDF attachment? I've seen the sendObject method.
Is there a way to send an email using outlook, have that email filtered into a specific folder, and then have an access program extract that email. The situation is that I have sales reps in the field that would like updates on projects that are stored in an access program I designed. The program already sends out auto notifications through outlook, but that is only when I update the specific project. All of the sales reps in the field use blackberry's and do not have time to call in to request an update. So I was wondering if it were possible to have a sales rep send a preformated email that has included the primary key ie Account number, and have access recieve that account number to turn around and send out an auto response.
View 6 Replies View RelatedI have a system automated that, when our warranty team receives a warranty part that somebody else has requested information for, will email that person letting them know it has been received.
I want to include a hyperlink in the email that points to the database, opens it with 2 argument containing 2 variables in which one of the forms can auto populate and the information be shown immediately.
So first, I would like to know how to create a hyperlink within the code that sends the email. Second, I would like to know how have the database check for arguments upon opening. I can do the rest.
For instance, John Smith requested part number 123456 on claim number 55555, serial number 7777777. The database is located at "S:SharedWarranty ReturnsWarranty Returns.accdb". Therefore, the hyperlink would aim at the location and carry the arguments 55555 and 7777777.
Current emailing code (obviously variables are passed into the function):
Code:
Function sendemail(msg As String, subj As String, recipients As String, ccrecipients As String, xclaim As Integer, claims() As Variant, serials() As Variant)Dim rsnote As Recordset
Set cdomsg = CreateObject("CDO.message")
If recipients <> "" Then
With cdomsg.Configuration.Fields
[code]....
I have this code here that sends an email out with all the needed info. The problem i ran into was that for my field "item" it is in a table called "test" and there can be more than one record in there. I just can't get it to loop and show me all of the records. Right now it shows me only the first record. Also it is showing the name of the table before the result so i am not sure what is wrong there...
Code:
Private Sub Command4_Click()
On Error GoTo Err_SendInfo_Click
Dim varTo As Variant
Dim varCC As Variant
Dim stSubject As String
[Code] ....
Any code that stops the vba from running if an 'output to' function is null. I've found some code using the DCount function but I'm struggling to adapt this to multiple excel outputs.
I'm sending 5 excel files via E mail to several addresses and I'm wanting to identify if the first file has records, currently using access 2010.
I am using the following code but when i run it produces the following error.
Run-time error '429':
ActiveX component can't create object.
then on debug it highlights the line
Set objOutlook = CreateObject("Outlook.Application")
I have searched online and already tried a suggestion to ensure that mictosoft outlook 14.0 object library is selected in the VBA references.
Code:
Dim objOutlook As Object
Dim objMailItem As Object
Const olMailItem As Integer = 0
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
[Code] ....
Hi all,
after spending wweks perfecting a database which centres on the ability to email the contents of what you have just entered i find that our stirling IT dept haven't actually setup any of my intended users with outlook profiles and do not intend to. Therefore whenever they try and send an email they get the dialog box you get when trying to connect to the internet for the first time. Which is obviously a problem.
Is there any way around this or is there any alterntive i can use? my IT dept dont promise to setup any outlook profiles soon and im hoping there may be something else i can do before the project gets binned.
cheers
greg