MS Visual Basic error in Outlook
 

Vba Project OTM - Thisoutlooksession(code)
window pops up, and I have to stop the degugger
to send an email.

I've been using OL 2002 for 2 year, never had this problem,

How can I fix it ?

MS Visual Basic error in Outlook
 

"XP User" wrote in message
...
Vba Project OTM - Thisoutlooksession(code)
window pops up, and I have to stop the degugger
to send an email.

I've been using OL 2002 for 2 year, never had this problem,

How can I fix it ?

Fix the code ?

Supply more info so we have a better idea what your problem is?

Take your pick of above.

--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters

MS Visual Basic error in Outlook
 

"XP User" wrote in message
Vba Project OTM - Thisoutlooksession(code)
window pops up, and I have to stop the degugger
to send an email.
I've been using OL 2002 for 2 year, never had this problem,
How can I fix it

The Debugger shows:

Compile Error:
Syntax Error

[Application] [ItemSend]

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objNS As NameSpace

Dim objFolder As MAPIFolder

Set objNS = Application.GetNamespace("MAPI")

Set objFolder = objNS.PickFolder

If TypeName(objFolder) "Nothing" _ And

IsInDefaultStore(objFolder) Then

Set Item.SaveSentMessageFolder = objFolder

End If

MS Visual Basic error in Outlook
 

"XP User" wrote in message
...
"XP User" wrote in message
Vba Project OTM - Thisoutlooksession(code)
window pops up, and I have to stop the degugger
to send an email.
I've been using OL 2002 for 2 year, never had this problem,
How can I fix it

The Debugger shows:

Compile Error:
Syntax Error

[Application] [ItemSend]

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim objNS As NameSpace

Dim objFolder As MAPIFolder

Set objNS = Application.GetNamespace("MAPI")

Set objFolder = objNS.PickFolder

If TypeName(objFolder) "Nothing" _ And

IsInDefaultStore(objFolder) Then

Set Item.SaveSentMessageFolder = objFolder

End If


Well, it is a bit OT for this group, but ...

You don't say which line the syntax error occurred on, but, I'm guessing it
might be:


If TypeName(objFolder) "Nothing" _ And

You have a line continuation character, but "And" appears on the same line.

Further discussion should really be taken to one of the .vba groups.

--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters