Rulare program in functie de subiectul mail-ului

[anduandu]

Buna,
stiu ca pot sa fac o regula ca in functie de titlul unui mail primit sa ruleze un anumit program de pe calculator.
Vreau sa stiu cum pot ca in functie de titlul mail-ului daca in acesta se regaseste o anumita cifra de la 1 la 100 sa fac sa imi ruleze unul din fisierele .bat de pe calculator.

de exemplu daca titlul mailului cuprinde cifra 1 sa fie rulat 1.bat; pt 2 sa fie rulat 2.bat ... pt 100 sa fie rulat 100.bat.

[smcsa]

Prin titlu te-ai referit de fapt la subiect ?

[anduandu]

subiect

[anduandu]

se poate?

[smcsa]

Cu VBA

[anduandu]

ma poti ajuta cu un exemplu de cod?

[smcsa]

La asta lucrez

[alcoool2]

Codul de mai jos nu este testat, dar cred ca ar trebui sa isi faca treaba

Cod: Selectaţi tot

Sub subiect(MyMail As MailItem)

Dim strID As String
    Dim objNS As Outlook.NameSpace
    Dim objMail As Outlook.MailItem
    Dim objAtt As Outlook.Attachment
    Dim save_name As String
    
strID = MyMail.EntryID
    Set objNS = Application.GetNamespace("MAPI")
        Set objMail = objNS.GetItemFromID(strID)
           
If InStr(1, objMail.Subject, "100") Then
            Call Shell(Environ$("COMSPEC") & " /c C:\100.bat", vbNormalFocus)
End If
 
    Set objAtt = Nothing
      Set objMail = Nothing
    Set objNS = Nothing
End Sub

[anduandu]

sunt incepator in aria asta.
unde pun codul respectiv?

[smcsa]

@alcool2
Da, functioneaza. Dar ce te faci daca primesti un subiect cu "1001" ?

@anduandu
Atl + F11
Paste
Save

apoi la Rules and Alert adaugi o regula nou si la pasul "Ce sa fac cu mesajul" bifezi "Run a script" si alegi macro-ul respectiv