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