I have a form that uses the command AddContactfromOutlook. I used the standard example given by Microsoft and it works flawlessly in the form. When I use the form as a subform this command button breaks.
View RepliesI have the following code working great with creating new contacts in Outlook from Access. My problem is I can't figure out a way to update already existing contacts in Outlook.
Function AddContacts()
Dim OutlookObj As Outlook.Application
Dim Nms As Outlook.NameSpace
Dim MyContacts As Object
Dim MyItems As Object
Dim MyItem As Object
Dim Db As Database
Dim Rst As Recordset
Set Db = CurrentDb
Set Rst = Db.OpenRecordset("CustomerOutlook", dbOpenDynaset)
Set OutlookObj = CreateObject("Outlook.application")
Set Nms = OutlookObj.GetNamespace("MAPI")
'to point to a nested folder in Outlook you have to create folder items in folder items:
Set MyContacts = Nms.Folders.Item("Public Folders").Folders.Item("All Public Folders").Folders.Item("Our Contacts")
Set MyItems = MyContacts.Items
While Not Rst.EOF
'Declare which form to be used to add your contacts
Set MyItem = MyItems.Add("IPM.Contact")
'add fields, to find out which fields are available take a look at all the available members of the
'ContactItem class in the Outlook object library.
'Be careful, Microsoft is using various names for outlook fields!
MyItem.CompanyName = Rst!BusinessName
MyItem.FirstName = Rst!CFirst
MyItem.LastName = Rst!CLast
If Not IsNothing(Me.WebSite) Then
MyItem.WebPage = Rst!WebSite
End If
If Not IsNothing(Me.CMiddle) Then
MyItem.MiddleName = Rst!CMiddle
End If
If Not IsNothing(Me.Suffix) Then
MyItem.Suffix = Rst!Suffix
End If
MyItem.JobTitle = Rst!JobTitle
MyItem.BusinessTelephoneNumber = Rst!Phone
MyItem.Business2TelephoneNumber = Rst!BackPhone
MyItem.MobileTelephoneNumber = Rst!Mobile
MyItem.BusinessFaxNumber = Rst!Fax
MyItem.Email1Address = Rst!Email
If Not IsNothing(Me.Address1) Then
If Not IsNothing(Me.Address2) Then
MyItem.BusinessAddressStreet = Rst!Address1 & ", " & Rst!Address2
Else
MyItem.BusinessAddressStreet = Rst!Address1
End If
End If
MyItem.BusinessAddressCity = Rst!CCity
MyItem.BusinessAddressState = Rst!CState
MyItem.BusinessAddressPostalCode = Rst!PostalCode
MyItem.Categories = Rst!CustomerType
MyItem.FileAs = Rst!BusinessName
'MyItem.Etc = Rst!Etc
MyItem.Close (olSave)
Rst.MoveNext
Wend
End Function
I am trying to use
RunMenuCommand
command : AddContactFromOutlook
But i get this error message
"The command or action AddFromOutlook isn't available now "
on a demo access "project manager" it works but in my data base does not ...
I've researched all the email topics, but can't find what I am trying to do.
Most of these topics are talking about emailing a record or form or something.
I have a form that contains thousands of contacts address, telephone, email, etc.
I would like to create a button that on click would open Outlook and grab ONLY the
email of the current contact I am looking at on the form at that time and add that
email address to the [To:] box of a new email.
Thanks you guys, I'm learning...slowly, but it's coming.
Microsoft has a Desktop Student Database template (Access 2010) that does exactly what I'm trying to do:
open the Outlook Contacts dialog box, select a contact from the GAL, and then programmatically save it to a record in one of my tables.
I've tried simulating the button/coding on my data entry form, but I'm getting the error:
"The command or action 'AddFromOutlook' isn't available now"
I've search high and low but have only found a reference to creating a temp contacts table to import all the contacts.
How to I can to add contact with field "Notes" (Type: Memo) in MS Access to field "Notes" in Outlook contact
Is it below ???
item.Notes = varNotes & ""
I have an Access 2007 SQL database with 20 users. The DB has a list of about 3,000 email addresses that I want to export to Outlook for mass mailing. I've already got the services of an SMTP mail service that allows 1000 mails at a pop to be sent, and I've already written in the logic to separate the list into groups of 1k.
The problem I'm having is that I'm currently exporting from Access 2007 to Excel 2003 format (for some unknown reason Outlook 2007 does not directly interface with Access 2007), and then I have to manually go through the import steps within Outlook to bring the data from each 1k name group spreadsheet into a contact group for mailing.
It all works fine as it is, but it's clunky as hell. I want to automate that process, but I'm not very familiar with Outlook. I'm not even sure what the file format is for a group. Surely it must have its own format, like group1.xxx, or something. My ultimate objective is to export straight from access to the .xxx (whatever it is) format, direct it straight to the appropriate folder within Outlook and in the process eliminate the need for the more tedious steps required to import each Excel file within Outlook that I'm currently using.
I'm using an unbound text box and a command button to filter a list of contacts on a continuous form. The continuous form has a query for the record source and the list ends up showing only what is in the strWhere filter
Me.Filter = strWhere
Me.FilterOn = True
Is there a way to have Access 2003 take this filtered list and populate the To: field in Outlook or whatever the default mail client is? Each email needs to be deliminated by ";"
I want to open Outlook with the recipients name in the To: box by clicking on the email address held in a subform list field...
Any ideas?
Dave E
I'm trying to make it so when a subform is updated, it will email the contents of that subform to me. I've got it all working, except for the content of the email part.
Code:
Sub SendRepReassignment()
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim objOutlookAttach As Outlook.Attachment
On Error Resume Next
Err.Clear
[code]...
Good afternoon All,
I know there is a way to do what I need, but I am a bit rusty with my Access skills. Any help is greatly appreciated!
Here is what I would like to do as an end result...
When my users enter a name on my form, I would like for the address and company information for that person automatically fill in. If they are not already in the contacts list, I would like for the record to be added. Any idea how I accomplish this?
So far I have the tblAccts (which would be the main information entered on the form), tblContacts (where the names, companies,and contact information is stored), and frmAcctOpen (the user's form for opening accounts).
It has been about 6+ years since I have really messed around with access, so please speak basic language in your answers.
Thank you!
Hi Guys. I have a form 'frmPurchaseOrders'. The user selects a Supplier from a combo. The form contains a control 'ContactID'. I want the user to be able to add a new Supplier Contact. I have added a cmd 'cmdNewContact'. When clicked I want the Supplier form to open on the relevant supplier. I added this code to the cmd:
On Error GoTo Err_cmdNewContact_Click
Dim strDocName As String
strDocName = "frmSuppliers"
DoCmd.OpenForm strDocName, , , [SupplierID] = [Forms]![frmPurchaseOrders]![tblSuppliers.SupplierID] 'I have 2 supplier ID's on the form
DoCmd.Close acForm, "frmPurchaseOrders"
' Give CompanyName control focus.
Forms![frmSuppliers]!CompanyName.SetFocus
Exit_cmdNewContact_Click:
Exit Sub
Err_cmdNewContact_Click:
MsgBox Err.Description
Resume Exit_cmdNewContact_Click
frmSuppliers opens but not on the desired record (where supplier id equals the suppliers id of the purchase orders form).
Any ideas?
Cheers,
Phil.
Good afternoon All,
I know there is a way to do what I need, but I am a bit rusty with my Access skills. Any help is greatly appreciated!
Here is what I would like to do as an end result...
When my users enter a name on my form, I would like for the address and company information for that person automatically fill in. If they are not already in the contacts list, I would like for the record to be added. Any idea how I accomplish this?
So far I have the tblAccts (which would be the main information entered on the form), tblContacts (where the names, companies,and contact information is stored), and frmAcctOpen (the user's form for opening accounts).
It has been about 6+ years since I have really messed around with access, so please speak basic language in your answers.
Thank you!
Hi all,
I've written a query in SQL View. To be honest, its my first SQL Query EVER and I'm very happy that it works for half of what I need to do.
I'll paste the query here:
SELECT DISTINCT
Abs(Avg([Handoff Tracking].[Internal Kickoff?])) AS [Avg Of Internal Kickoff?],
Abs(Avg([Handoff Tracking].[E-Mailed prior to visit?])) AS [Avg Of E-Mailed prior to visit?],
Abs(Avg([Handoff Tracking].[Call to Support?])) AS [Avg Of Call to Support?],
Abs(Avg([Handoff Tracking].[Transfer to Support?])) AS [Avg Of Transfer to Support?],
Abs(Avg([Handoff Tracking].[Recieve Post trip Info?])) AS [Avg Of Recieve Post trip Info?],
Abs(Avg([Handoff Tracking].[Total Workstations])) AS [Avg Of Total Workstations],
Abs(Avg([Handoff Tracking].[Failed workstations])) AS [Avg Of Failed workstations],
Abs(Avg([Handoff Tracking].[Config File Issues?])) AS [Avg Of Config File Issues?],
Abs(Avg([Handoff Tracking].[3rd Party App Issues?])) AS [Avg Of 3rd Party App Issues?],
Abs(Avg([Handoff Tracking].[Welcome Pack Reviewed?])) AS [Avg Of Welcome Pack Reviewed?]
FROM [Handoff Tracking];
As you probably see above it does the average of [table name].[field name] then outside THOSE brackets it does the absolute value of that averaged value (the numbers USED to show up as negative numbers.
This query is great becuase it checks the average value of ALL records regardless of contact, which is good becuase I need something to compare each contact to.
Now I need to get a query that will do the average value, for all fields PER contact!
What would be the string to narrow the range of the average equation down to a per contact basis.
As far as relationships go I have 2 tables 1 for contacts.... and 1 for handoff tracking very simple DB structure wise. I just need to know how to do the same query as above, on a per user basis. Thanks for any input anyone might have :)
I have a contact database which store email address and other info for customers. I have searched and searched. How can I use these email links to open and email to the contact? Such as how to email you@there.com from DAP or Form? So the user can click on the email address and auto open Outlook to send that contact an email? This is so much easier in webpage building :o Any direction would be greatly appreciated. Thanks guys :)
View 2 Replies View RelatedI have a database with all of my contacts... I have a report that shows my contacts in alphabetical order and I have a form for adding new contacts. I was wondering if there is a way to have a report or query that will look up a contact by typing in the person or the company name.. Is this possible and if so.. how do I do this?
View 1 Replies View RelatedHi all, I have a form of contacts wich I would like to put a photo for every contact, I would like to have a "ADD" button on the form wich will add me a photo in JPG or BMP in a certain field on the form, the photo ar stored in a folder in c: I also would like to have a "DELETE" button!!!
Thanks to all
Marco
Hi,
I'm new to this forum so if I ask something stupid please forgive :)
I want to do something like the contact management database which is offered by microsoft for download.
I played a little with it and my problem is I copy-pasted the "calls" tab and on the pasted tab when I browse throug the different calls the call notes field below wont change / update. I thought there is maybe a macro behind it but I looked at every macro and did not find anything appropriate in my opinion.
It is maybe only a minor but I can not figure it out,
Thanks for any help in advance,
Leslie
PS.: I uploaded the database to rapidshare : http://rapidshare.com/files/1305209/Contact_management_database.mdb
Hi,
I need to customize the sample Contact Management DB (CONTACT) that comes with MS Access 2000.
I removed the field ‘Region’ in the ‘Company’ table, in the ‘Company’ form, and in the ‘ContactAddress’ query, respectively. Now, when I try to access the ‘Enter/View Contacts’ form through the Main Swithboard's button, it shows a small warning windows asking to ‘Enter Parameter Value’, referring to "Company.Region." What did I wrong and/or should I do to correct this problem?
I'll appreciate your help.
Orlando
Dear all, please excuse the fact that this is not an explicit problem I have, but more of a general query.
I have an Access database (2003) with a load of contact details in it. Including various fields for each contact, such as their email, services they offer, where they are, main contact name etc.
Some of these contact details will be out of date and I want to make sure that all the contact details are up-to-date.
I am in the process of setting up a mail merge with a Word document which will output to Word their relevant details, and this can then be e-mailed to each of the contacts with them to update and e-mail back again. Someone would then manually update each of the contact details.
This is quite a time intensive way of doing it, and I wondered is there a way of automating the process? I don't have the time to put the whole of their details on a website so they can update it over the web, but is there a way that access could possibly read the return Word document to automate updating their details? Or is there another easier way of doing it, without using word and using something else such as Excel or something.
If anyone has any experience in doing this kind of thing I would be really glad of some tips.
Many thanks
I have been plodding along slowly building up a small DB and have hit a slight snag (or 2).
I have a Supplier Form (frmSuppliers). I have a frmSupplierContacts.
I want to prevent users entering data in the standalone frmSupplierContacts?
Also on frmPurchaseOrders I have a combo ContactID. I want the combo to display Supplier Contact Names for the selected supplier only.
I have put as row source:
SELECT tblSupplierContacts.ContactID, [LastName] & ", " & [FirstName] AS Contact FROM tblSupplierContacts WHERE (((tblSupplierContacts.SupplierID)=Forms!frmPurcha seOrders!SupplierID)) ORDER BY [LastName] & ", " & [FirstName];
This displays a Contact Name, but does not change if you select a different supplier?
Hopefully attached DB will explain all.
Thanks for any help in advance.
Phil.
Hi I have a Contact form with all the details of the contacts, I would like to add a photo for each contact, how can I get to this?
Marco
Hi all,
I have a database for customer enquiries, and there is one record per product that the customer shows interest in. I want to have a button on the enquiry details form that creates a new enquiry but automatically fills in the contact details from the previous record.
Please also note that I do not wish to "normalize" this so that there is a seperate table for contacts and another for enquiries; it's much easier from our point of view to have the whole enquiry in one record, especially as this is a stand-in database before a fully integrated CRM is implemented. In any case most of the other data (e.g. product, category etc) is already stored in separate tables.
What sort of method do I need to use to create a Command Button that:
-Creates a new record
-Copies and Pastes data from selected fields into the new record?
I tried using the command button wizard for sample code but I got paste errors which were pasted into a new table, and I don't really understand the process of how this works as the Commands are numbers from a list (apparently in the macro window), which I can't find.
I'm using Access 2003 but the database file is in A2000 format. The code is below.
Thank you!
Private Sub ContactAddEnq_Click()
On Error GoTo Err_ContactAddEnq_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_ContactAddEnq_Click:
Exit Sub
Err_ContactAddEnq_Click:
MsgBox Err.Description
Resume Exit_ContactAddEnq_Click
End Sub
I created a print image form in my project so that when a user opens the form, it cycles through all the images stored in a temp folder and prints them out four images/page at a time until all the images have been cycled through. I am using the below code on the "OnCurrent" event of the form. The problem I am having is trying to close the form with code after the images have been cycled through. I get an error message stating that "this action can't be carried out while processing a form or report event" I guess it is caused by the form still being sent to print. How do I add a code to catch the event when the form has finished printing? Also, when I open the form by itself, it works correctly and prints all of the images. However, when I tried to use a switchboard to open the form, it prints the switchboard form. Please help me in correcting this. Thanks
Private Sub Form_Current()
Dim mysql As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim PicPath As String
Dim TotalSet As Integer
Dim CurSet As Integer
Dim SetStart As Integer
Dim RecNo As Integer
Dim PicNo As Integer
Dim RecCount As Integer
Dim RecNoMove As String
Dim PageCount As String
Set rs = New ADODB.Recordset
Set conn = CurrentProject.Connection
mysql = "SELECT tbl_Image.*, tbl_Image.SelectPrint " & _
"FROM tbl_Image " & _
"WHERE (((tbl_Image.SelectPrint)=Yes));"
rs.Open mysql, conn, adOpenKeyset, adLockOptimistic
RecCount = rs.recordCount
TotalSet = (Int(((RecCount) / 5)) + 1)
CurSet = 1
PicNo = 1
SetStart = (((CurSet) * 4) - 4) + 1
rs.MoveFirst
NextSet:
For RecNo = 1 To 4
PicPath = rs("myimagepath")
Me("image" & PicNo).Picture = PicPath
PicNo = PicNo + 1
rs.MoveNext
If rs.EOF Then
If Me.Image1.Picture = "(none)" Then
End
Else
PageCount = "Page " & CurSet & " of " & TotalSet
Me.PageCount_txt = PageCount
DoCmd.PrintOut acPrintAll
GoTo closepage
End If
End
Else
End If
Next RecNo
PageCount = "Page " & CurSet & " of " & TotalSet
Me.PageCount_txt = PageCount
DoCmd.PrintOut acPrintAll
PicNo = 1
CurSet = CurSet + 1
Me.Image1.Picture = "(none)"
Me.Image2.Picture = "(none)"
Me.Image3.Picture = "(none)"
Me.Image4.Picture = "(none)"
GoTo NextSet
End
closepage:
DoCmd.Close acForm, "frm_printimage_4", acSaveNo
End Sub
I work for a firm who have a few thousand clients and we are wanting to go through a process of checking with them that the data we send them is going to the email address they would like it to go to. However in some cases we don't currently hold an address so we are contacting them by phone to get the addresses over the next few weeks.
The way I've chosen to do this is to use the excellent link between Access and Outlook to send an email to the address we have on file (or have gotten) with a very light form they can optionally fill in to update the email address if desired.All seems well in testing this with 2 exceptions:
1) I have 2 email boxes in outlook, my "personal" one and a group mailbox. I'd like the emails access sends to come from the group mailbox but cannot see an option to control this.
2) We're likely to send the emails out in tranches - is there a way to have a single table the drives the email process but some how have it know that we have sent the emails out for certain clients such that when I send a second tranche, it doesn't re-send to clients that have already been contacted?
In my database I have a table for all of the customers emails which list the 3 titles for each district they serve, for example District 1 has across the President, Vice President and Clerk. each email is a hyperlink that when clicked once automatically takes you to outlook, however, how can I choose all 3 at once without having to go back and forth to the database and outlook after the one click? so all 3 recipients are included in the email at once. In Excel you can copy and paste the 3 emails but in Access it doesn't allow you to do that. How I can execute this?
View 5 Replies View Related