forward cu vba

Informatii despre cum se utilizeaza Microsoft Outlook 2003. Gestionare Inbox, Scriere/Trimitere email-uri, Colaborare, etc
Închis
alcoool2
Mesaje: 969
Membru din: Mie Dec 15, 2010 4:25 pm

forward cu vba

Mesaj de alcoool2 » Mar Mai 15, 2012 9:03 am

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!
10Q itlearning

Catalin B.
Moderator
Moderator
Mesaje: 813
Membru din: Vin Sep 09, 2011 4:05 pm
Localitate: Iaşi

Re: forward cu vba

Mesaj de Catalin B. » Mar Mai 15, 2012 11:33 am

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...

Închis

Înapoi la “Intrebari despre Outlook 2003”