FWD Email TO Address in VBA Program
i found the solution!! :wave:
VB Code:
Public Sub ForwardToNici()
Dim oFld As Outlook.MAPIFolder
Dim obj As Object
Dim oMail As Outlook.MailItem
Dim sAdr As String
'Set oFld = Application.Session.PickFolder
Set oFld = Application.ActiveExplorer.CurrentFolder
If Not oFld Is Nothing Then
For Each obj In Application.ActiveExplorer.Selection 'oFld.Items
'Set obj = Application.ActiveExplorer.Selection
If TypeOf obj Is Outlook.MailItem Then
Set oMail = obj.Forward
oMail.To = sAdr
oMail.Send
End If
Next
End If
End Sub