Cod: Selectaţi tot
Sub forwardmail(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim Fwd As Outlook.MailItem
Dim subiect As String
strID = MyMail.EntryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)
subiect = objMail.Subject
If subiect = "UL24" Then
'pana aici este ok
Fwd = objMail.Forward
Fwd.Recipients.Add "adresa@server.ro"
Fwd.Subject = "rezolvat" & subiect
Fwd.Forward
Fwd.Send
End If
Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub