Discussion :

[dedel]

Bonjour à tous,

Je voudrais créer un script qui s'exécute lorsque je reçois des mails de certains expéditeurs. Je voudrais que le script exécute plusieures étapes :
- recherche l'adresse e-mail à laquelle je dois répondre qui se trouve dans le mail.
- Mettre en destinataire l'adresse trouvée dans le mail initial
- Enfin, envoyer la réponse à partir du script.

Je ne sais vraiment pas comment faire. en cherchant sur des forums, j'ai trouvé deux trois petits indices mais rien de bien concrets.

Merci pour toute l'aide que vous pourrez m'apporter.

[Oliv-]

Bonjour à tous,

Je voudrais créer un script qui s'exécute lorsque je reçois des mails de certains expéditeurs. Je voudrais que le script exécute plusieures étapes :
- recherche l'adresse e-mail à laquelle je dois répondre qui se trouve dans le mail.

C'est à dire où dans le corps du mail ? c'est du html ou autre ?
y a t'il un texte toujours identique précédent l'adresse Email ?

ex "répondre à : "

combien d'adresses Email peut il y avoir dans ce mail ?

- Mettre en destinataire l'adresse trouvée dans le mail initial
- Enfin, envoyer la réponse à partir du script.

la réponse c'est quoi un nouveau mail ? un transfert de celui-ci ,

[dedel]

L'adresse à laquelle je veux répondre se trouve dans le corps du texte.
Le format est du texte brut
Le mail est toujours est tjourjours composé de la même manière. L'adresse mail se trouve toujours derrière le même texte qui est "mail to : abc@def.fr"
Dans le message initial, il n'y a qu'une adresse mail.
La réponse est un nouveau mail qui contiendra une pièce jointe.

[Oliv-]

Le plus simple c'est d'utiliser un script sur une règle.

Voici un exemple qui m'a donné un peu de fil à retordre, le problème étant de savoir quel est le caractère juste après la fin de l'adresse : un " un espace une marque de paragraphe ? Soit tu es sûr de celui-ci , soit il faudrait
ou tester chaque caractère après l'@ et tant qu'il fait partie des caractères autorisés dans une adresse Email continuer vers la droite
ou alors trouver le premier caractère non valide comme dans mon exemple (incomplet) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub recherche_Email_dans_body(LeMail As MailItem) 
 
Dim MonOutlook As Outlook.Application
'Dim LeMail As Outlook.MailItem
'Set LeMail = ActiveInspector.CurrentItem
OuCommenceAdresse = InStr(1, LeMail.Body, "mail to : ")
        If OuCommenceAdresse > 0 Then
            OuEstArobase = InStr(OuCommenceAdresse + 10, LeMail.Body, "@")
 
            OuEstEspace = InStr(OuEstArobase, LeMail.Body, " ")
            OuEstparagraphe = InStr(OuEstArobase, LeMail.Body, Chr(10))
            OuEstFinParagraphe = InStr(OuEstArobase, LeMail.Body, Chr(13))
            OuEstcote = InStr(OuEstArobase, LeMail.Body, """")
            Fin = ListMin(OuEstEspace, OuEstparagraphe, OuEstFinParagraphe, OuEstcote)
 
            AdresseEmail = Mid(LeMail.Body, OuCommenceAdresse + 10, Fin - OuCommenceAdresse - 10)
        End If
 
 
Set LeMail = Nothing
MsgBox "[" & AdresseEmail & "]"
End Sub
 
Public Function ListMin(ParamArray ListItems() As Variant)
        Dim I As Integer
 
        For I = 0 To UBound(ListItems())
            If ListMin = "" Then ListMin = ListItems(I)
            If ListItems(I) < ListMin Then ListMin = ListItems(I)
        Next I
End Function

ca marche ?
pour la suite c'est plus simple

Set l_Msg = MonOutlook.CreateItem(olMailItem)

[dedel]

Merci beaucoup
Je vais essayer tout ca!

[nfranq]

Bonjour,

Je suis confronté à un problème similaire, mais il me semble que les paramètres diffèrent quelque peu...

En fait, je souhaiterais également :

- exécuter un script qui trouve l'adresse e-mail à laquelle je dois répondre dans le corps du mail (il n'y en a toujours qu'une seule, elle figure toujours entre parenthèses comme ceci "(xxxxxxx.yyyyyy@zzzzzzz.fr)"et est marquée en HTML par la fonction "mailto:" ;
- mettre en destinataire cette adresse trouvée dans le mail initial ;
- enfin, envoyer une réponse ".oft" prédéfinie à partir du script

Oliv, si je ne me trompe pas, ta proposition ne me convient pas vraiment, puisque dans mon cas j'ai identifié précisément l'adresse email dans le body du mail ? D'ailleurs, j'ai essayé ton script : il fonctionne mais on dirait que pour les adresses utilisant plus de caractères, il ne sélectionne pas tout à gauche et à droite de l'arobase ?

Aurais-tu une idée de code plus adapté à mon cas ?

Je pensais mêler un autre script qui m'avait bien aidé et pour lequel tu m'avais déjà apporté tes lumières l'an dernier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub RepToRec(MyMail As MailItem)
 
Dim LaReponse As Outlook.MailItem
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
 
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
 
'' c'est mieux de créer ton nouveau mail en dehors de la boucle
    Set LaReponse = Application.CreateItemFromTemplate("C:\download\LaReponse.oft")
    'on Ajoute des destinataire "A" du mail d'origine
    For Each destinataire In msg.Recipients
    'MsgBox destinataire
    If destinataire.Type = olTo Then
    LaReponse.Recipients.Add destinataire.Address
    End If
 
    Next destinataire
    LaReponse.Send
 
Set msg = Nothing
Set olNS = Nothing
Set LaReponse = Nothing
End Sub

Ici, il ne s'agit plus de sélectionner l'adresse du "A" comme destinataire, mais bien l'adresse email qui figure dans le body de mon email.

Merci d'avance pour votre aide,

nfranq

[nfranq]

Voici une proposition de code, quelqu'un peut essayer de me guider pour me dire ce qui "coince" (je me doute qu'il y a des erreurs monumentales de cohérence du code, mais je n'y connais absolument rien en VBA) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub RecupAdresseEmail(MyMail As MailItem)
 
Dim LaReponse As Outlook.MailItem
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
 
strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
 
'' c'est mieux de créer ton nouveau mail en dehors de la boucle
    Set LaReponse = Application.CreateItemFromTemplate("C:\download\LaReponse5.oft")
 
    Set MyMail = ActiveInspector.CurrentItem
AdresseEmail = "mailto:"
 
        DebutEmail = InStr(MyMail.Body, AdresseEmail)
        If DebutEmail > 0 Then
            FinEmail = InStr(DebutEmail, MyMail.Body, """")
            Email = Mid(MyMail.Body, DebutEmail, FinEmail - DebutEmail)
        End If
 
    LaReponse.Recipients.Add Email.Address
 
    LaReponse.Send
 
Set msg = Nothing
Set olNS = Nothing
Set LaReponse = Nothing
End Sub

Merci d'avance !

nfranq

[nfranq]

Ca y est, j'ai pu trouver le code qui fonctionne afin de retrouver l'adresse email en question dans le corps de mon mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub RechercheEmail(LeMail As MailItem)
 
Dim MonOutlook As Outlook.Application
'Dim LeMail As Outlook.MailItem
'Set LeMail = ActiveInspector.CurrentItem
AdresseEmail = "mailto:"
 
        DebutEmail = InStr(LeMail.Body, AdresseEmail)
        If DebutEmail > 0 Then
            FinEmail = InStr(DebutEmail, LeMail.Body, """")
            Email = Mid(LeMail.Body, DebutEmail + 7, FinEmail - DebutEmail - 7)
        End If
Set LeMail = Nothing
MsgBox "[" & Email & "]"
End Sub

Il me reste à présent à utiliser cette adresse email dans le cadre de ma règle automatique et de l'envoi du message ".oft" pré configuré.

Je suis toujours dans l'attente d'une âme charitable pouvant m'aider à réaliser cette opération.

Merci d'avance,

nfranq

[nfranq]

Bonjour,

Juste pour dire que je viens de trouver la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub RechercheEmail(MyMail As MailItem)
 
    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set msg = olNS.GetItemFromID(strID)
 
    AdresseEmail = "mailto:"
    DebutEmail = InStr(msg.Body, AdresseEmail)
    If DebutEmail > 0 Then
        FinEmail = InStr(DebutEmail, msg.Body, """")
        Email = Mid(msg.Body, DebutEmail + 7, FinEmail - DebutEmail - 7)
    End If
 
    Set LaReponse = Application.CreateItemFromTemplate("C:\download\LaReponse.oft")
    LaReponse.To = Email
    LaReponse.Send
 
End Sub

Si ça peut servir à quelqu'un...

Au plaisir,

nfranq

[roidurif]

Bonjour,

je me retrouve dans le même cas toi.

Comment executer la macro dans VBA Outlook cette macro?

Impossible de la lancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub RechercheEmail(MyMail As MailItem)
 
    strID = MyMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set msg = olNS.GetItemFromID(strID)
 
    AdresseEmail = "mailto:"
    DebutEmail = InStr(msg.Body, AdresseEmail)
    If DebutEmail > 0 Then
        FinEmail = InStr(DebutEmail, msg.Body, """")
        Email = Mid(msg.Body, DebutEmail + 7, FinEmail - DebutEmail - 7)
    End If
 
    Set LaReponse = Application.CreateItemFromTemplate("C:\download\LaReponse.oft")
    LaReponse.To = Email
    LaReponse.Send
 
End Sub

Merci de l'aide.