Word macro warning


    Sponsored Links


  • 1. Outlook 2003 and getting folders with script
    I have a button set up on a custom contact from to add a journal entry for a contact. It worked fine until I went to Outlook 2003 and now I get the error because the routine is not able to get the folder name. The following is the script that I believe is not working correctly. It still works fine with Outlook 2002 Function GetFolder (pintFolderType, objFolder) Dim objMyFolders Dim i GetFolder = False Set objMyFolders = Item.Parent.Folders i = 1 Do While i <= objMyFolders.Count If objMyFolders.Item(i).DefaultItemType = pintFolderType Then Set objFolder = objMyFolders.Item(i) GetFolder = True Exit Do End If i = i + 1 Loop If Not GetFolder then MsgBox gstrErrorFolder, vbCritical, gstrAppName End If End Function Thanks in Advance Tony
  • 2. OUTLOOK MAKRO Spezialwunsch
    Guten Tag Wir mhten ein Makro schreiben, welches automatisch beim versenden von externen E-Mails das Info@xxx Konto benutzt, oder dem Outlook Formular direkt zuweist... (Exchange 2003 Server) (Einrichten als Standardkonto auf Exchange 2003 ist nicht mlich, da sonst alle das Infokonto erhalten) Kann jemand helfen... Mfg Roger Birchler
  • 3. Non-English strings in Non-English Outlook - how to handle
    We have a project management addon that links with Outlook. We use the categories to stand for individual projects, and bring in the task information under each category. We have translations into French, German, Danish, Swedish, and Dutch. We recently discovered that the French version was not working correctly with Outlook 2000 in French, because the word "category" in English is different from "Catgories" in French. Questions: is there a way to query Outlook to find out the local word for category? Or, is there a list of prompt strings for different languages that we could use to set up our own table of terms?
  • 4. Create Assigned Task
    How would I go about automating the sending of an assigned task in vb6? Also is there a way during acceptance to check if the task has already been accepted by someone else? What I am trying to accomplish is when billing documents are scanned into our imaging database. I want my imaging program to send out an assigned task to the billing distribution list. Then once one person accepts the task it shuts it off for any more acceptances. I have automated task generation for single uses before, but not shared tasks. Thanks in advance for any help on this. Craig Loidhamer

Word macro warning

Postby Z29yYW4 » Wed, 19 Dec 2007 23:41:04 GMT


I develop an Outlook 2003 Add-in. When user tries to create new message( MS 
Word is email editor) and clicks on the custom drop down in Inspector 
window(goes and open xml file on the disk) MS Word security warning pops up 
'The macro cannot be found or has been disabled..' Macro security is at 
'Medium' level. I checked 'trust templates and add-ins', searched oll over 
web but nothing. How can I disable this warning? Any ideas?



Re: Word macro warning

Postby Michael Bauer [MVP - Outlook] » Sat, 22 Dec 2007 18:44:33 GMT

Did you check the security settings in Word? In a Word group you can
probably get more help.

Best regards
Michael Bauer - MVP Outlook
  Synchronize Outlook Categories:
  < http://www.**--****.com/ ;

Am Tue, 18 Dec 2007 06:41:04 -0800 schrieb goran:


Similar Threads:

1.Macro warning w/Ensuredmail Encryption Word 2002

1. new user with WIN XP PRO; have applied all recent updates to MSOFFICE,
i.e. KB830346 Word 2002; KB830350 Excel 2002.
2. using ENSUREDMAIL encryption software.
3. composed MSWORD encrypted test document sent it and afterwards received
MSWORD warning "...macos either expired or revoked signature, and since you
are running HIGH security, these macros will be disabled".
4. I was informed next day, my test msg was 'not encrypted' and was 'open'
at its destination, NOT THE desired result.
5. Are there settings to be made in WORD and EXCEL for it to work w/3rd
party encryption software, any info on WHY or HOW TO FIX is needed.
6. Please be specific where to make changes and how to get there as I am new
user w/WORD and EXCEL.
7. I also sent email many days ago to EnsuredMail but no reply yet.

2.Excel Macro warning but no macros used!

Hi!  Two colleagues of mine have just completed an Excel document.  It
was a virgin document and they did not employ any macros but, whenever
anyone tries to open up the document, they get a Macro warning.  Is
there any way to turn this off?

Many thanks!


3.how to disable warning box warning against MS Word trying to send an email

Hi all,

I use email in my office frequently.  I'd like to disable the Outlook
warning box
that cautions a "program is trying to send an email."    I use Windows XP
and Word 2000.  I know I saw a message when using a later version that
offered to disable or otherwise alter the warning.  Suggestions will be
Gil Carter


Thanks for clarifying "the fix".

    Bruce Hagen
         MS-MVP [Mail]
      Imperial Beach, CA

No one is afraid of OE, neither were I...Why should we ?

But OE today destroyed my huge external HD , 195 Giga with about four years
of Data, medical, financial, legal and all that was on that huge hard rive.
OE today dealt me a serious blow I may recover from ONLY if I find someone
who can restore data on an erased hard drive not to mention the cost.  Here
is what happened:

Knowing Windows shenanigans and being the careful person four years ago I
bought an external drive that worked fantastically all those years. I named
it  External drive  "D" and anything critical I put there. Assuming it is
really external and out of harm . Now I know windows get anywhere.

Two years ago, having problems with overload in OE, unwilling to delete it
all, I "Exported" it to a folder on external drive D and by now totally
forgot it

This morning after I did the successful cleaning with the help of the
"Compacting" tool, it turn out windows never forgot the folder on drive D
and went in there too. But instead of cleaning just the  DBX folder it
cleaned the entire 195 Giga drive and left me with notice you see attached.
Also, It removed the hard drive icon from the list in My computer.

I went looking for it in "Computer management"\disk management and it is
there. But it can't be opened, It states the size of the drive 195 G but for
content it says '0'.  It also tells me  "NO ALLOCATION", and I don't know
what is ""Allocations'' I guess it has to do with partitioning something I
never did nor do I know a thing about it. In other words, Outlook express
erased not just the Data on the drive but it destroyed the partitioning done
on the drive in the MAXTOR factory

This is where it is at now, I write this just to warn every one what an
innocent mailing program OE can do,

Just in case the attachment won't go through here is what the notice from
windows said;
{WINDOWS- Delayed write failed:.
Windows was unable to save all the data for the file\five folders from
outlook express 1.43 Giga done November 1.2008\from sent1773units1.92MB. The
data has been lost. This error may be caused by a failure of your computer
hardware or network connection.}

( I know nothing about the stated numbers or the mentioned date)

Have a nice weekend...or whatever left of it


5.Passing variables from Outlook Macro to Word Macro

I am trying to send a argument along with a macro call from Outlook
2003 SP1 to Word 2003. The macro call works but I can not get the
argument/variable to work. I followed the syntax in the Word help file,
under Run Method, but I still get a "run-time error 438" message.

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
If WordApp Is Nothing Then
MsgBox "Couldn't Start Word . . . ."
Set oDoc = WordApp.Documents.Add("C:\Documents and
Settings\riddlesm\Application Data\Microsoft\Templates\Pella\Meeting
End If
If WordApp.ActiveWindow.View.SplitSpecial <> wdPaneNone Then
End If
If WordApp.ActiveWindow.ActivePane.View.Type = wdNormalView Or
WordApp.ActiveWindow.ActivePane.View.Type = wdOutlineView Then
WordApp.ActiveWindow.ActivePane.View.Type = wdPrintView
End If

WordApp.ActiveWindow.ActivePane.View.SeekView =

A="test" 'variable I am trying to send
WordApp.Run Macroname:="'C:\Documents and
Settings\riddlesm\Application Data\Microsoft\Templates\Pella\Meeting
DateVB3.dot' !macro2", varg1:=A

Here is my word macro that it calls:
Sub Macro2(A As String)
        MsgBox A
End Sub

6. Outlook macro abends but Word macro runs successfully

7. Passing variables from Outlook Macro to Word Macro

8. Security warning in Outlook when running Access Macro



Who is online

Users browsing this forum: No registered users and 48 guest