macro ist just worling wenn vba editor is open!

Status
Not open for further replies.
S

sasan sepahbodi

Hi every one,

i have a problem. My macro is working excellent, but just when vba editor

was opened one time!. Why taht?

Scenery:

Outlook 2003

Win 2003

___

Private Sub Application_NewMail()

'MsgBox "NewMail"

Dim outlookNameSpace As Outlook.NameSpace

Dim inbox As Outlook.MAPIFolder

Dim items As Outlook.items

Dim mail As Outlook.MailItem

Set outlookNameSpace = Me.GetNamespace("MAPI")

Set inbox = outlookNameSpace.GetDefaultFolder(olFolderInbox)

Set items = inbox.items

items.Restrict ("[Unread] = true")

For Each mail In items

'MsgBox "For each NewMail"

Next

End Sub

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

mailCopy

'MsgBox "NewMailEx"

End Sub

TanX

Sani
 
J

Jan Hyde

"sasan sepahbodi" <sasan.sepahbodi@ebnerstolz.de>'s wild

thoughts were released on Thu, 16 Apr 2009 14:47:22 +0200

bearing the following fruit:


> Hi every one,

> i have a problem. My macro is working excellent, but just when vba editor
> was opened one time!. Why taht?
>


Try asking your question again. I have no idea what the

problem is that you are having.

J



> Scenery:

> Outlook 2003

> Win 2003

> ___

> Private Sub Application_NewMail()
> 'MsgBox "NewMail"

> Dim outlookNameSpace As Outlook.NameSpace
> Dim inbox As Outlook.MAPIFolder
> Dim items As Outlook.items
> Dim mail As Outlook.MailItem

> Set outlookNameSpace = Me.GetNamespace("MAPI")
> Set inbox = outlookNameSpace.GetDefaultFolder(olFolderInbox)
> Set items = inbox.items

> items.Restrict ("[Unread] = true")

> For Each mail In items
> 'MsgBox "For each NewMail"
> Next

> End Sub

> Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

> mailCopy
> 'MsgBox "NewMailEx"

> End Sub

> TanX

> Sani
>


Jan Hyde
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
M Outlook 2019 Macro not working Outlook VBA and Custom Forms 0
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
Geldner Send / Receive a particular group via macro or single keypress Using Outlook 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 17
V Macro to count flagged messages? Using Outlook 2
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Macro to block senders domain Outlook VBA and Custom Forms 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Line to move origEmail to subfolder within a reply macro Outlook VBA and Custom Forms 0
witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Using Outlook 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0

Similar threads

Top