Discussion :

[arctica]

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 :

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

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

[Fvandermeulen]

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.

[arctica]

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?

[Fvandermeulen]

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

Tu veux vraiment que je sois honnête ? 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

A+

[arctica]

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

[Fvandermeulen]

Re,
C'est vachement plus claire comme ça
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+

[arctica]

ouaah

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