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
sAdr = "[email protected]" 'InputBox("E-Mail:")
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