## Catch Outlook flagging event

Microsoft OFFICE

### Next

• 1. Pivot commandtext change error
The error is application-defined or object-defined error. Not sure why this doesn't work. I can get the ptc.Connection to change, but not the .SQL statement. Any help is appreciated. Cheers Sub ChangeSource() 'Declare our variables. Dim ptc As PivotCache, oldSrv, newSrv,oldSQL ,newSQL As String sFilename = Application.GetOpenFilename(, , "Input the name of the new server or file path which you want the Pivot Table to point to.") 'They have cancelled. If sFilename = "False" Then Exit Sub newSrv = "ODBC;DSN=MS Access Database;DBQ=" & sFilename & ";DefaultDir=" & sFilename & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables oldSrv = pt.PivotCache.Connection 'Replace the ODBC information of whatever PivotTable 'is currently active. Set ptc = pt.PivotCache oldSQL = Left(Mid(ptc.Sql, Application.Find("", ptc.Sql) + 1, 255), Application.Find("", Mid(ptc.Sql, Application.Find("", ptc.Sql) + 1, 255)) - 1) newSQL = Application.Substitute(ptc.Sql, oldSQL, sFilename) ptc.Connection = Application.Substitute(ptc.Connection, oldSrv, newSrv) ' ====> This is error line ptc.Sql = Application.Substitute(ptc.Sql, ptc.Sql, newSQL) '====> Next pt Next ws End Sub
• 2. The clipboad Object doesn't work from outlook VBA
Hello to all I using XP and Outlook 2003 and I like to copy selected mailadresses from the current OL Explorer (contact items) to the clipboard. Problem: The clipboad Object doesn't work. I don't know why. Thank you for any hint! Michael Public Sub A_Mail2Clipboard() 'This Makro shall copy all emailaddresses from selected records of the current OL Explorer Dim myOlApp As New Outlook.Application Dim myOlExp As Outlook.Explorer Dim myOlSel As Outlook.Selection Dim MsgTxt As String Dim x As Integer MsgTxt = "" Set myOlExp = myOlApp.ActiveExplorer Set myOlSel = myOlExp.Selection For x = 1 To myOlSel.Count MsgTxt = MsgTxt & myOlSel.Item(x).Email1Address & ", " Next x clipboard.SetText MsgTxt '<-------- It looks like, the clipboard is not available ????? End Sub
• 3. Modify Calling Function UDF Excel VBA
I have a Excel UDF in VBA and I need to datetime stamp the calling function. MyUDF(arg1, arg2, arg 3) -- this is entered by the user In my vba code, I want to a modify this UDF when it is calculated to add the stamp. This stamp needs to be visible to the end user. MyUDF(arg1,arg2,arg3, 1/1/2005) -- this should be the result Thanks, Dave

### Catch Outlook flagging event

Hello,

is it possible to have a Outlook launch something upon simple flagging of
the message.

If not, then react to a message just moved into a folder?

Regards,
Mantvydas



I have a macro in Excel that creates an Outlook MailItem but only
displays it so that the user can modify it before sending. While the
user modifies the message, I would like the macro to wait until the
user either sends the message orl discards it, and then retrieve the
user's decision.

Is it possible from Excel to catch the events of the Outlook mail item
object?
Has anyone code sample that would show how to do this?
Other suggestions?

regards.


Hello
I have to catch an outlook event (f.ex. a new contact is saved) in my C++ Programm
Ive build my appication with wrapper classes ..
Im very new in automation
Can someone give me an example

Thanks a lot, Chris


Hi,

I work in an offshore site for an american company. So as to save

What I'm looking for is a way to launch a script when I click on a
"distant" link, so as to check weither the local mirror exists or not.

Do you know if there's a way to catch the event "user clicked on the
link \\distant.server\foo\bar\quux.dll" so as to trigger a VBA script?

Thank you for your attention, and greetings from Paris,

Vinzz



Hi,

I've enabled "When online, automatically sychronize all folders upon
exiting" in my Outlook. Upon exiting, I would like to programmatically
catch the sync event with COM addin, is there any chance to do this?
Outlook SyncObjects/SyncObject doesn't do the job though. Many thanks.

SeeMing
`