envoi d'email

[PHILIP]

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

 

[PHILIP]

Re : envoi d'email

Bonjour à tous,

personne pour m'aider ? est infaisable ?

 

[Hulk]

Re : envoi d'email

Hello Forum, Philip,

Juste pour dire qu'il n'y a ni feuille "dest", ni feuille "globale".

Aussi, en

Re-formule ta demande avec plus de précisions, à savoir :

1) Quelle est exactement la colonne avec les destinataires ?
2) Faut-il envoyer à qu'un seul destinataire ou à plusieurs à la fois ?

Enfin bref, pas très clair ta demande, c'est sans doute pour ça que tu n'as pas encore eu de l'aide.

A te relire.

Cdt, Hulk.