envoi d'un email si

Bonsoir à tous
J'ai besoin de votre aide car je suis encore trop debutant
Mon souhait: j'aimerai envoyé un email automatiquement à un destinataire dont l'adresse est situé en feuille "dest" lorsque dans la colonne Q de la feuille "globale" apparait "pas livrée" Ce destinataire est indiqué dans la colonne J (transporteur) le sujet de l'object devant être "delivery & B"
dans la colonne B apparait le numéro de transport
j'ai récuperé une macro pour l'envoi automatique de message mais je ne sais l'adapter Je joins un fichier pour mieux comprendre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim MonOutlook As Object Dim MonMessage As Object ' Ici sera installé le code proprement dit 'On crée une instance d'Outlook : Set MonOutlook = CreateObject("Outlook.Application") ' Et on crée un élément Outlook, qui sera un message E-Mail : Set MonMessage = MonOutlook.CreateItem(0) MonMessage.To = "" MonMessage.Cc = "philippe.lohr@mondia .fr" MonMessage.Bcc = "" MonMessage.Subject = "delivery & " MonMessage.body = "test " MonMessage.send Set MonOutlook = Nothing ' On ferme !

---

Merci pour votre aide

Salut,
Tu ne veux donc qu'un destinataire par mail ?
Comment sur base de la feuille globale peut-on retrouver l'adresse sur la feuille dest ? Quelles sont les colonnes correspondantes, OK pour globale c'est J mais je suppose qu'il faut faire une recherche sur base de ça dans la feuille dest...

Sans ça c'est facile, donc précise un peu plus et ce sera réglé...

A+

Edit: Petite remarque la procédure que tu vas utiliser va te demander une confirmation à chaque envoi de mail, es-tu OK avec ça ?
Sinon, il faut utiliser une autre méthode.

Bonjour Vandermeulen,

en fait on trouve dans la colonne J de la feuille 1 le nom du transporteur soit dhl1 dhl2 joy1 joy2 etc J'ai fait une erreur dans la liste des adresses emails de la feuilles 2 Il aurait fallut que je marque dhl1= dhl2=joy1=joy2= l'adresse de dhl1 etant celle de dhl , l'adresse de joy 2 etant celle de joyaux mais j'avais dans la tête de de prendre les 3 1eres lettres de dhl1 ou joy 1 par la formule =gauche (j3,3)
voila c'est comprehensible?

Citation:

---

Envoyé par arctica

...
voila c'est comprehensible?
...

---

Tu veux vraiment que je sois honnête ? :aie: ABSOLUMENT PAS compréhensible (du moins pour moi)

Je reprends, pour envoyer le mail on a besoin d'une adresse du type xxx@yyyy.com, où se trouve cette adresse dans ton fichier ?
Si elle est dans une autre feuille quel élément permet de faire le lien entre les deux ?
Juste au cas ou, dans le fichier que tu as joint il n'y a rien sur la feuille 2 8O

A+

Ok c'est pas clair
Je joins un nouveau fichier avec les transporteurs en bleu ciel feuilles 1 , transporteurs que l'on retrouve en feuille 2 colonne A auquelle j'ai associé les adresses emails est- ce plus clair? en violet les numeros de tp (feuille1)qui doivent apparaitre dans l'objet du message Est-ce plus clair? en tout cas merci pour ton aide

Re,
C'est vachement plus claire comme ça :lol:
Veux tu valider l'envoi de chaque message (petit pop up Outlook qui te demande de confirmer) ou veux tu que tout soit envoyé dans la foulée ?

Bon, ben alors voici ton fichier avec les deux méthodes...

J'ai juste adapté ta feuille dest pour ne pas avoir les adresses en hyperlien mais scindé sur deux colonnes (Nom / extention)

A+

ouaah

Je sors de reunion et je vais tester cela En tous cas merci pour votre aide