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 "(e-mail address removed)"
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub
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 "(e-mail address removed)"
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub