Modules & VBA :: Check Outlook Is Open Not Working?
May 21, 2014
My application relies on whether Outlook is open and more importantly, with the correct Exchange profile selected. To ensure this I have the following code which, on the work PCs (Windows XP and Office 2003) works correctly.
Code:
If Outlook_is_Running = True Then
Set myOlApp = CreateObject("Outlook.Application", "localhost")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set colFolders = myNameSpace.Folders
On Error Resume Next
[code]....
The work PCs are being upgraded soon to Windows 7 and Office 2007 so I have taken the application home and started to develop it on my home PC (Windows 8.1 64 and Office 2013 64). I have used PtrSafe where necessary and have compiled with no errors, but this code always returns false even though Outlook 2013 is open.
On further investigation, if I comment out the 'On Error Resume Next line I get the error Active X component cannot create the object (or similar) Error 429. This is the same regardless of whether Outlook is open or not
I have a report with an unbound checkbox which has a null (greyed out value) when printed. I'm just trying to set it to false when the report opens.I have
Code: Private Sub Report_Open(Cancel As Integer) Me.CheckNotPaid = False End Sub
but it just says 'Runtime Error -214..You can't assign a value to this object'
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 would like to create a button that when pressed opens up an outlook email. The email address will be populated by one email address every time. I don't want it to automatically send as the body will need to be filled out by the user. It would be useful if the date and time it was sent could be recorded in the form somewhere too (would this be in a text box?).
I think my issue is that when the user opens my form a record gets created. Thus default value will not work. what happens is; the user fills out form 1 goes to form 2 and on form 2 i want a check box default value to be true...but its always false.
the checkbox in question is adequite staff. the user gets the question, "was there adequate staff" if there was the "adequate staff box" would be true. what i have tried is i created a "dummy" checkbox (checkbox299) entitle no. and labled adequite staff checkbox as yes. on the form2 open insert the following
Code: If Me.ADEQUATE_STAFF = False And Me.Check299 = False Then Me.ADEQUATE_STAFF = True Else End If
I have a form with two subforms. One subform is a datasheet that pulls data from a temp table. During the other subforms Form_Current, the temp table is emptied (DoCmd.RunSQL "Delete from tblAddRefs"), reloaded with data relevent to the current record, and requeried (Forms("frmEDFP").Controls("tblAddRefs subform").Requery). This works like I want it to...
With the exception of the initial load of the main form. The subform based on a table shows (#Deleted) instead of data. if I step through the code, I can see that the temp table is emptied and repopulated by the time I try to requery the subform. This is still happening during the Form_Current of the other subform, which is successfully running on main form load.
If I requery (Forms("frmEDFP").Controls("tblAddRefs subform").Requery) using a button on the main form once it is loaded, the #deleted data is correctly is replaced by regular data, so it's like the requery in the Form_Current event isn't doing anything during load.
I have some code that resides in a button on a report that allows me to save a PDF version of this report. My problem is that if i have the destination directory open on windows explorer, i get a runtime 2501 "The output To action was cancelled" error.Is there any way to check if the directory is already open, and cancel the output to, or close the window to avoid this error?
Here is my code:
Code: Private Sub CmdSavePDF_Click() Dim MyFileName As String Dim MyPath As String 'Dim CompanyName As String
I'm trying to lock a checkbox when the forms open and depending if one has role as admin, it should unlock it.When I add the below code in the on open form I get error:
I would like to be able to check if a db is open and if it is to prevent the user from proceeding.
I use the Access 2013 Runtime. I can check if a db is open by trying to open Exclusively, using something like
Code: [URL] ....
But if the db is already open Not exclusively and I try to open it exclusively it does not raise an error and it allows the user to open the db in Read Only mode.
I would like to be able to prevent this, because careless and/or inexperienced users may open several instances of the db.
Of course, if the db is already open exclusively it does not allow you to open it exclusively another time.
I am storing values of pictures and the location of them in a table, this works fine!... using OpenRecordset. The problem is that when the function is called to store the information, it just keeps adding the same values of each file in the folder over and over again in a word "Duplicating" the information.
I have tried various methods using the OpenRecordset, but cannot seem to find the correct manor of applying the code.
Below is the function I have for storing the data...
Code: Public Sub GetFilesNamesFromFolder(strFolderPath As String) On Error GoTo ErrorHandler Dim objFSO As Scripting.FileSystemObject Dim objFolder As Scripting.folder Dim objFile As Scripting.File
I have a form linking to information in a query, and simply shows some client information. one thing the form shows is the clients email. from the query i can click on the email (hyperlink) and outlook opens a blank email with the clients email already inserted. how do i get the form to do the same?
Hello, I am putting a check whether the inputted value in a text box(txt_id) is filled or not. If it is 'null' then it should not execute the insert statement but somehow the check for the null value is not working. Can someone tell me why??
Private Sub cmd_inserer_Click()
If txt_id.Value = Null Or txt_id.Value = "" Or txt_id.Enabled = False Then info = MsgBox("Veuillez remplir champ « Id »", vbInformation)
ElseIf txt_id.BackColor = &HFF& Or txt_libelle.BackColor = &HFF& Or txt_description.BackColor = &HFF& Then
info = MsgBox("Veuillez remplir tous les champs fausses!", vbInformation)
Else MsgBox txt_id.Value Set db = CurrentDb strSQL = "INSERT INTO objectif ( id , libelle,description) values ('" & txt_id.Value & "' , '" & txt_libelle.Value & "','" & txt_description.Value & "') ;" db.Execute strSQL db.Close
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.
I have a macro set to email a form to a person once a condition is met. This works fine but I've discovered that Outlook (2010) has to be open BEFORE this macro is invoked.
I wanted to add a step to the macro before the one that makes it email that basically says to open Outlook.
I have tried the RunApplication macro, but I apparently am not getting the path right. I don't understand what the problem is.
I accidentally dragged Outlook to my desktop and therefore created a shortcut from my Start Menu, but now when I go to Microsoft Office in my Start Menu, Microsoft Outlook isn't one of the options. I can't find the path to where it may reside now.
I am using the path to the shortcut on my desktop.
hi... firstly, i created some report based on query. then in my form i create list and combox to list down all primary key that had in query.. what i want to do is open report, based on criteria that i selected from combobox or list box... i create both cbo and list box to compare which 1 is better... but both not working. i mean it works but not show the data as i want to. it open / list all data at report..
I have a main form with 2 check boxes. The title of the first box is Manufacturing and the title of the second check box is Purchased. I have 2 different forms based on the titles of the check boxes. After the user checks one of the boxes, I want the user to click a command button which opens the correct form based on the box checked.
Using the On Click for the command button, I created this code, with no success:
Dim stDocName As String
If Me.Check14 = 1 Then stDocName = "frmManufacture" DoCmd.OpenForm stDocName Else If Me.Check16 = 2 Then stDocName = "frmPurchase" DoCmd.OpenForm stDocName Else stDocName = "frmError" DoCmd.OpenForm stDocName End If
I have a form in wich I can add and edit employees. I can open this "employee" form in 2 ways: 1. From another form 2. From the mainmenu
When I close the "employee" form I want to check if the otherform (1.) is open. If it is open I want to requery the other form. If it is closed I don't want to requery the other form. How can I check if the other form is open?
I hope that you guys can help me and thanks in advance, Johnny
having a corruption issue with my database, it happens when a user updates a record and a second user has that record open elsewhere. then when the second user closes they save their changes over the top, corrupting the whole record.
so i need to know with a recordset if there is a way to check if a second user is currently looking at the same record?
Some of the things that bring me screeching halt really surprise me. I swear, this sounds like it should be so easy....
What I need to do is check, when the user clicks on a button, whether a specific table that is going to be modified/deleted later in the click code is already open. If it is open, I will msgbox the user to close the table first and exit the sub.