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