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

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