A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Remove Alert Outlook



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old November 14th 06, 09:23 AM posted to microsoft.public.outlook.program_vba
Shezan
external usenet poster
 
Posts: 1
Default Remove Alert Outlook

Is it possible to remove alert which remember me automatic access to
address book and automatic forward?
If i wrote code for do this, i would like do it.......
Thanks for help

Sub Forward()
Dim myolApp As Outlook.Application
Dim myinspector As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim myattachments As Outlook.Attachments
Set myolApp = CreateObject("Outlook.Application")
Set myinspector = myolApp.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
Set myItem = myinspector.CurrentItem.Forward
Set myattachments = myItem.Attachments
'While myattachments.Count 0
' myattachments.Remove 1
'Wend
myItem.Display
myItem.Recipients.Add "
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub

Ads
  #2  
Old November 14th 06, 09:47 AM posted to microsoft.public.outlook.program_vba
Michael Bauer [MVP - Outlook]
external usenet poster
 
Posts: 1,885
Default Remove Alert Outlook



In OL 2003 it's possible by usng the instrinsic Application object. Simply
remove the 'Dim myolApp...' line and replace myolApp for the rest of code by
'Application'.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --

Am 14 Nov 2006 00:23:28 -0800 schrieb Shezan:

Is it possible to remove alert which remember me automatic access to
address book and automatic forward?
If i wrote code for do this, i would like do it.......
Thanks for help

Sub Forward()
Dim myolApp As Outlook.Application
Dim myinspector As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim myattachments As Outlook.Attachments
Set myolApp = CreateObject("Outlook.Application")
Set myinspector = myolApp.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
Set myItem = myinspector.CurrentItem.Forward
Set myattachments = myItem.Attachments
'While myattachments.Count 0
' myattachments.Remove 1
'Wend
myItem.Display
myItem.Recipients.Add "
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub

 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Outlook should let me send advance alert of an out of office appt. jlind26 Outlook - Calandaring 1 July 27th 06 12:13 AM
Outlook 2003: No alert for conflicts with recurring meetings James.Brown Outlook - Calandaring 0 May 23rd 06 07:11 PM
Setup an Outlook alert when I DO NOT receive a daily mail? Hikergal Outlook - General Queries 4 March 12th 06 11:22 PM
How to make Outlook alert me, when I receive an e-mail morten v. Outlook - General Queries 2 February 21st 06 07:06 PM
how can i set up outlook 2000 desktop alert? Michel Outlook - General Queries 1 February 5th 06 08:19 PM


All times are GMT +1. The time now is 02:08 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.