Modules & VBA :: Unable To Capture A Newly Arrived Mail In Outlook With Respective Subject Line
Jul 14, 2015
I am trying to capture a newly arrived mail in outlook with respective subject line. The below code works for me on 2010 outlook but when new mail arrive in outlook 2013 ,Mrthod Items_ItemAdd do not get called.
Code:
Option Explicit
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' (1) default Inbox
[Code]...
View Replies
ADVERTISEMENT
Aug 27, 2014
I'm trying to write a line of VBA code (in an existing Access 2010 DB) that changes the Subject Line of all selected emails in my Outlook Inbox to today's date.
View 1 Replies
View Related
Feb 4, 2014
I have a script that sends a mail using outlook to a different person depending on a value in a field. I want to add values from fields to the subject and body of the mail it creates. This is what I have so far:
Function Mail()
On Error GoTo Mail_Err
If (Forms![Manage Packages]![Customer] = "MSC") Then
DoCmd.SendObject , "", "", "email", "email", "", "[ID] - [Package Name] - Delivered", "Dear," & vbNewLine
[Code] .....
In the subject and body the field ID's I want to add are marked as [ID], [Package name] etc.
View 8 Replies
View Related
Jul 22, 2014
I'm trying to automate some processes. My company uses Outlook 2010 and every day we need to go into our "Sent" folder and rename the Subject line of all of our sent emails. We change the subject to a standardized format depending on the content of the email and who the email was sent to. These are then used as part of an equation to tally our Transactions Per Hour. (TPH)
I've already designed a small Access 2010 utility to track the TPH, but I would like to add the functionality to parse some data from the subject lines of my "Sent" folder, and automatically make changes to save some time.
Here is my thought process:
- Click "Process Sent Emails" button from TPH utility.
- Access runs through each email in the "Sent" folder (or perhaps only selected emails) and changes the Subject line per simple Select Case criteria (I can figure that part out).
View 2 Replies
View Related
Oct 10, 2014
When I build the statement I want to email and view it in a MsgBox the lines space correctly with the code vbCrLf.However when I send that text out as the body of the email, the spacing is no longer there and its just one big pile of nonsenses. In the MsgBox I see it correctly as:
Tool Box 5
Drawer 3 Tag Number 4
Drawer 2 Tag Number 6
Tool Box 7
Drawer 8 Tag Number 2
But in the Email it comes out as:
Tool Box 5 Drawer 3 Tag Number 4 Drawer 2 Tag Number 6 Tool Box 7 Drawer 8 Tag Number 2
How do I make Outlook correctly space?
View 3 Replies
View Related
Oct 28, 2004
Hi,
I have been reading all of your post for days now and can't find the answer to my question.
I have however found the answer to one of my programming problems. Thanks to all of you.
I have used Access as a data supplier but this is my first attempt to program in access.
I have absolutly no experience with VB code. And a limited amount of experience with macros in access only.
My question(s) are:
1. I need to send a single report (page) in an email (snapshot format) to a person using a command button. This report should be sent from the form that the person is currently looking at. Currently my command button sends the report in snapshot format but it sends the whole database.
2. This report will be used as a tracking mechanism for another department and I will need a specific name to store the email in a certain location. So that it can be tracked at a later date. I want (that doesn't mean that it can) Access to automatically put the subject line in the email. I know under the sendobject macro you can set the subject line the same for each email. But I need the subject line to match the information in several of my text boxes from a table. For instance: Subject line should read: [Permit number][CountyId][Inspector's Initials][Date]. Can this be done at all and if so how.
Thanks so much for all that you have done already.
Tasha
View 14 Replies
View Related
Mar 20, 2014
i'm trying to send an Outlook e-mail from Access. Everything works fine except for one thing:
When generating the HTMLBody I use vbNewLine for starting a new line in the string that works fine as long as being in Access. However after displaying it in Outlook there are no any new lines in the mail text; the complete text is one mass.
I tried to use Chr(13) but had the same result.
View 2 Replies
View Related
Aug 6, 2004
I have a Macro setup and SendObject is one of the Actions. It is setup to send an existing report. Is there a way to insert a fieldname from that report into the Subject line of the e-mail that is sent? That would be great, instead of having the same subject line for every e-mail, using the date or something like that. Please let me know. Thanks.
View 3 Replies
View Related
Mar 24, 2014
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)
[Code] .....
View 10 Replies
View Related
Jan 19, 2006
I've got information stored per row with the name of the person which data-entried the information.
If a user wants feedback from that user on that specific row i would like to make it able to send a mail to the data-entrier. The data-entrier name should be clicked in the row and that specific row should be attached in the mail.
I can store e-mail addresses of my data-entriers in the database, how do i achieve to send the mail address and specific row to outlook when a user clicks it?
View 2 Replies
View Related
Apr 21, 2015
I need to find the respective numbers for a textstring when for
abcdefghijkl stand the numbers
79 81 82 83 84 85 86 87 88 89 91 92
The textstring to "decode" is for example is 'adgjk'
The result (79 83 86 89 91) should be added into a table by Looping.
rs.Addnew
rs("Letter")= myarray??
rs("corNumber")= myarray?
rs.update
rs.movenext
Something like this.
But I cannot define and Setup the Array, which should be the best way for doing this.
The Array does not change its Content nor its Dimension.
Both, letters and numbers are strings.
View 14 Replies
View Related
Jun 3, 2014
Is there a way to paste a access query result in the outlook message body?. I do not want to attach the query result in the email.
View 8 Replies
View Related
Nov 29, 2014
I have a module which reads a CSV transaction file line by line and adds the correct transactions to an access table and places the wrong ones in a logfile.Now some transactions are rejected twice there is even one rejected six times. Whereas one wrong transaction is processed only once. I am certainly overlooking something obvious in the logic but what. Here is the relevant code.
Code:
Function ImportCSVForConfederation(inputCSV, ORG)
Dim TNO As Integer, TACT As Integer, TABLE As String, TLINE As String, I As Integer, J As Integer, K As Integer
Dim FLD1 As String, FLD2 As String, FLD3 As String, FLD4 As String, LogFile As String, LogPath As String
Dim Lim As String, ITNO As Integer
[code]....
View 8 Replies
View Related
Nov 18, 2014
I am having a little difficulty with my importing in Access. Every time I import my text file, the lines will be jumbled. I have been reading up and I found this recordset code that seems to be what I need:
Code:
Dim strLine As String
Dim intLineNum As Integer
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Open "C:TestTest.txt" For Input As #1
Set MyDB = CurrentDb
Set rst = MyDB.OpenRecordset("tblResults", dbOpenDynaset)
CurrentDb.Execute "DELETE * FROM tblResults", dbFailOnError 'Clear tblResults
[code]....
Basically, this code will extract data from the text file as long as it fulfills the Mid$ criteria. Here's where my problem comes. Each line in my text file is of different lengths and I have to capture the entire line.
I think using the Left$ function would work, but I don't know how to determine the character count such that the entire line of text would be inserted into the table.
Another difference between what I need and the code above is that, I am required to store each line into each row of my table, meaning
Line 1 is placed in Row 1 Column 1
Line 2 is placed in Row 2 Column 1
Line 3 is placed in Row 3 Column 1
.
.
.
Line X is placed in Row X Column 1.
View 14 Replies
View Related
Jul 2, 2014
I have an Access 2010-form which inserts a record in a MS SQL 2008-database by using an ADODB-connection. I need to retrieve the primary key of the newly added record.
With code at the bottom I create a SQL-string which is stored in variable strSQL. If I execute the SQL-string directly in a MS SQL 2008 Query Window, the record is inserted and the MS SQL 2008-result pane shows a column "ID" with the primary key of the newly added record.
If I execute same SQL-string in MS Access 2010 the record is inserted. However, the code fails on Debug.Print rs![ID] with error "Item cannot be found in the collection corresponding to the requested name or ordinal". Same error appears if I use Debug.Print rs.Fields(0). I've enable the reference "Microsoft ActiveX Data Objects 2.8 Library". It looks as the recordset rs is closed as soon the command "Set rs = cn.Execute(strSQL)" finished.
Why I can't retrieve the Primary Key with VBA-code below?
Code:
Private Sub cmdSave_Click()
dim cn As ADODB.Connection
dim rs As ADODB.Recordset
set cn=New ADODB.Connection
[Code] .....
View 1 Replies
View Related
Jan 10, 2014
Using Activex controls for capturing video from a webcam or similar. Just looking for a snapshot that I could then forward via email from access.
Ive seen commercial licenses for an activex control. The form Im imagining would have a window showing the live video with a snapshot button where we could store the image as a jpg for example and then generate an email forwarding on the image. It seems possible!
View 1 Replies
View Related
Jun 23, 2006
Hi, this is probably a very easy question for you “Access-gods” out there.
I’ve made a database (MS Access 2000) with all my clients. I collect a lot of contact info, including e-mail.
I want to make a function which opens a new mail window (Outlook 2003) and automatically puts in the e-mail from my form (In the send-to field of outlook).
Is this possible? And how?
(BTW: I’m a newbie with VBA)
View 2 Replies
View Related
Jan 21, 2014
I have a MS Access database which has a web browser control incorporated within . I also have a get screen capture program for "excel" which works magnificent. I would like to incorporate these 2 functions into The Access . I would like to use my web browser control located in the access example to zoom into the picture of a house . Then capture that image and save it into access in the best usable format possible ...
View 4 Replies
View Related
Oct 22, 2004
I have a Yes/No field for Tax in my table. Records that have this field checked will have 5% of tax added to its total cost. I did a DLookup on the On_Current event of the form and it does not work. My code is as follows,
Code:If DLookup("[Tax]", "tblOrderInfoMain", "[PONumber]='" & txtPONumber & "'") = -1 ThentxtTax = 0.05 * [SubFrmLookupRecords].[Form]![txtSumTotalCost]txtGrossTotal = 1.05 * [SubFrmLookupRecords].[Form]![txtSumTotalCost]ElseIf DLookup("[Tax]", "tblOrderInfoMain", "[PONumber]='" & txtPONumber & "'") = 0 ThentxtTax = ""txtGrossTotal = txtFinalSumEnd If
Is it the wrong event to insert my code in? Grateful of any feedback and help. Thanks!
Regards,
Swee
View 6 Replies
View Related
May 15, 2013
I have a form in which I have a combobox. The code in the row source is:
Code:
SELECT [tblBooks].AuthorFirst & " " & [tblBooks].AuthorLast AS Expr1 FROM tblBooks GROUP BY tblBooks.AuthorLast, tblBooks.AuthorFirst HAVING (((tblBooks.AuthorFirst & " " & tblBooks.AuthorLast)<>"") And ((Count(*))>1)) ORDER BY tblBooks.AuthorLast, tblBooks.AuthorFirst;
This is an unbound box.
The rest of the form contains bound textboxes and other bound comboboxes.
This form is processed by the following VBA code:
Code:
Private Sub cmdAddBook_Click()
'Place the authors first and last name in an array
splitAuthor = Split(cboAuthor.Value, " ")
'Create a new record with the form information
DoCmd.GoToRecord , , acNewRec
[Code] ....
What happens is that it places all the records (Except those in the array) in a field and overwrites the values in that field.
I have used the same GoToRecord statement on other databases and it works just fine. I suspect that it is due to the unbound combobox.
What I need to find a way to place all the data in the corresponding fields of a new record including separating the author's first and last name when retrieved from the combobox. I just need to figure out how to get the data in the table somehow.
View 2 Replies
View Related
Mar 17, 2015
I am new to Access and I am trying to make a Database. However, I have an attachment with each record and I would like to know if there is a way of making a button/link that will allow the user to navigate from each record to its respective attachment.
View 6 Replies
View Related
Apr 26, 2013
I have a ms access table with two fields...tablename is ..."Addresses"..
Field1:= Employee_mail_id
Field2:= Leave_balance
What I need to do is that,I need to send individual mail (in Bulk) two each employee intimating their leave balances.
Is it possible to do it in vb .I want it to assign the codes in a button.
Below iss the code.
Dim r As Recordset
Dim email As String
Set r = CurrentDb.OpenRecordset("select * from Addresses")
Do While Not r.EOF
email = email & r(2) & ";"
r.MoveNext
Loop
r.Close
DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null
View 2 Replies
View Related
Sep 8, 2014
Any simple working mail merge application with a one to many field filling into the word document. I have no problem with a one to one, but if the subform has 2 or more associated records related to the main form, I cannot pass all the fields. Build a recordset loop or concatenated script so I can learn from it and add it to an existing project.
Example:
main form: CustomerID, Customer, Address
subform: ProductID, Product, Cost, fk_CustomerID
Sample data:
main form: 1, James Smith, 118 Clover Lane
subform entry 1: 4, Small Shipping Boxes, 2.00, 1
subform entry 2: 5, packing tape, 1.75, 1
subform entry 3: 3, Large Shipping Boxes, 3.00, 1
View 2 Replies
View Related
Aug 7, 2013
I have a report in my database with a button called "MailMerge".
My aim is that when clicked, this will open a word document, that has already been created, but automatically complete the merge based on the data in a table.
The catches:
1) I need to be able to ask the user the content of the word document from within access, and automatically populate it
2) I need to be able to ask the user who has written the word document and automatically populate it
3) I need to use a document which I have already created, because of various reasons, but obviously the merge fields can be updated.
Currently, I am trying to append the results of the query into a table, TBL_Merge and then use code to both ask the questions above, and then complete the merge.
View 1 Replies
View Related
Jun 19, 2014
I'm wondering if it's possible to set up an automatic Outlook mail merge with attachments from Access. We have several account managers, and each one receives a different version of the same report - filtered to his/her accounts. For now, I have set it up for the user to select the account managers and hit "Print Reports" to save each individual report into a destination folder. The user then uses an email template, attaches the report, and sends the email to an account manager. She has to send this email separately to each account manager.
View 3 Replies
View Related
Sep 16, 2014
the user opens a certain mail and THIS mail should be either saved as PDF (for example by CutePDF - as it works with a word-doc) to disk or be imported to my Access datebase in a certain field (the Body of the mail).
But I could not find code to catch just the OPENED Mail, there are a lot of examples how to loop through a Folder or a view reading all mails in it, but no one for just the ONE.
There should be something like "uidoc", but I cannot manage it.
So in real, my problem will be to "detect" the opened (or at least the marked) mail in the Notes GUI. In Outlook I do this with ActiveInspector.CurrentItem, but in Notes?
View 1 Replies
View Related
