Mail Outlook via Excel

[ThomasTanguy]

Bonjour,

Après l'aide que j'ai pu bénéficié pour une gestion de stock je décide de retourner vers ce forum pour améliorer cette gestion de stock.

Je souhaiterais que lorsque que mon stock est égale au stock mini Excel puisse m'envoyer un mail.

Je sais que c'est possible car j'ai effectué quelques recherches auparavant, mais c'est très compliqué à comprendre tout seul, car je suis un novice en VBA.

Je promet de faire un gros exemple de compréhension, et de répondre à toute les réponses (et vite).

Je vous remercie d'avance.

 

[camarchepas]

Re : Mail Outlook via Excel

Bonjour Thomas ,

L'on va déjà faire un test d'envois simple de mail.

Il faut définir la bibliotheque outlook dans les références, ensuite copier ce code dans un module standard

et exécuter la macro Mail

une visualisation est pour le moment activé et permet de vérifier la bonne construction du mail

Testes tous cela ,

Ensuite, il faudra me dire où et quand aller cherche l'info stock ,
et savoir ce que tu veux écrire dans ton mail .

Cordialement

Sub Mail()
 Dim ObjOutlook As New Outlook.Application
 Dim oBjMail As Object
 Dim Destinataire As String, Messageanglais As String, messagefrancais As String
 Dim Anglais As Boolean
     messagefrancais = " un deux trois"
      Set ObjOutlook = New Outlook.Application
     Set oBjMail = ObjOutlook.CreateItem(olMailItem)
     Destinataire = "Lui@hotmail.fr" ': Mettre une adresse réelle
      With oBjMail
        .To = Destinataire ' le destinataire
        .cc = "Etlautre@hotmail.fr" ' : Mettre une adresse réelle
        .Subject = "Mon titre"          ' l'objet du mail
        .Body = messagefrancais
         'Si besoin de piece jointe
         '.Attachments.Add "c:\appli_excel\exportpdf.pdf"
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
      ' Stop ' pour test ainsi que display
      .Send
     End With
     Set oBjMail = Nothing
     Set ObjOutlook = Nothing
 
End Sub

 

[ThomasTanguy]

Re : Mail Outlook via Excel

Merci beaucoup d'avoir répondu si vite, mais au final ma gestion de stock a quelques problème que je dois résoudre avant de me pencher sur le problème de l'e-mail. (j'ai vendu la peau de l'ours avant de l'avoir tué)
Merci pour le code que tu m'as fourni je l’utiliserais dès que j'aurais terminé avec ma gestion de stock, d'ici vendredi je pense que j'aurais fini.
Merci je fais au plus vite.

 

[ThomasTanguy]

Re : Mail Outlook via Excel

J'ai essayé j'ai du me tromper parce que lorsque que je lance le truc ça marche mais je ne reçois pas d'email je te copie ce que j'ai fait plus la pièce jointe.

Sub Mail()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail As Object
Dim Destinataire As String, Messageanglais As String, messagefrancais As String
Dim Anglais As Boolean
messagefrancais = " un deux trois"
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
Destinataire = "DelCielo.Thomas@gmail.com" ': Mettre une adresse réelle
With oBjMail
.To = Thomas ' le destinataire
.CC = "DelCielo.thomas@gmail.com" ' : Mettre une adresse réelle
.Subject = "Ca Marche !?" ' l'objet du mail
.Body = messagefrancais
'Si besoin de piece jointe
'.Attachments.Add "c:\appli_excel\exportpdf.pdf"
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
' Stop ' pour test ainsi que display
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub

 

[camarchepas]

Re : Mail Outlook via Excel

Bonjour Thomas,

Je pense que tu vas constater que l'envois fonctionne.
Merci de garder les infos liées à ce mail confidentielles .

Donc le code proposé suppose que la session outlook est déjà ouverte.

cela te pose t-il un problème ?

Si oui , il faudra ajouter l'ouverture de la session dans la macro

 

[ThomasTanguy]

Re : Mail Outlook via Excel

Non ça ne me pose pas de problème, et ça marche nickel merci, donc maintenant ce que je voudrais c'est que si mon stock (la colone C) de la feuille "Stock" est égale à mon stock mini (colone G), que le mail soit envoyé. Merci d'avance.

 

[camarchepas]

Re : Mail Outlook via Excel

Bonjour Thomas,

Voici une solution ,
regardes et dis moi ,

J'a vite fait 2 ou 3 modifs également dans ton code à droite à gauche ....

 

[ThomasTanguy]

Re : Mail Outlook via Excel

Ca marche comme sur des roulettes c'est vraiment super je crois que ça y est mon classeur est terminé, merci encore pour ton aide je vais travailler un peu dessus ce matin pour le tester, mais déjà j'ai vu les modifs que tu avais fait, c'est vraiment top.

Merci Encore