Salut!
Eu primesc e-mail-uri care au la începutul subiectului un număr. Eu trebuie sa ma uit într-un Excel care conține pentru fiecare număr o adresa de mail (asta știu sa fac).Cum fac și eu sa forward-ez e-mail-ul primit către adresa extrasa din Excel în VBA (aici ma interesează doar secvența de forward).
Multumesc!
forward cu vba
-
- Moderator
- Mesaje: 813
- Membru din: Vin Sep 09, 2011 4:05 pm
- Localitate: Iaşi
Re: forward cu vba
Cred ca ar trebui verificate mailurile intrate cu ItemsAdd event, mai jos e o idee de cod netestata
Cod: Selectaţi tot
Private WithEvents Items As Outlook.Items
Private Sub Items_ItemAdd(ByVal MesajNou As Object)
Dim Mesaj, Fwd As Outlook.MailItem
If TypeOf MesajNou Is Outlook.MailItem Then
Mesaj = MesajNou
Dim CuvinteCheie As New Collection
CuvinteCheie.Add "123" ' poti adauga lista de numere din excel
CuvinteCheie.Add "456" ' s.a.m.d
If CautaCuvinteCheie(CuvinteCheie, Mesaj.Subject) Then
Fwd = Mesaj.Forward
Fwd.To ="XXX"
Fwd.Subject= "XXXXXX" 'si asa mai departe
Fwd.Send
End If
End If
End Sub
Private Function CautaCuvinteCheie(ListaCuvinteCheie As Collection, Text As String) As Boolean
Dim CuvintCheie As Variant
CautaCuvinteCheie = False
For Each CuvintCheie In ListaCuvinteCheie
If (InStr(1, Text, CuvintCheie, vbTextCompare) > 0) Then
CautaCuvinteCheie = True
Exit Function
End If
Next
End Function
Probleme să fie, că soluţii se găsesc...