Remove Alert Outlook

S

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 "[email protected]"
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub
 
M

Michael Bauer [MVP - 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:
 
Top