![]() |
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. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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
|
|||
|
|||
![]() 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 |
Display Modes | |
|
|
![]() |
||||
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 |