Avant de taper du code , je suis en train de rechercher et penser une
solution me permettant dans un classeur
de pouvoir via une macro m'envoyer une alerte lorsque qu'une valeur
dépasse un certain seuil, ce qui me permettrai
Que d'autre personnes saisissent des datas dans une feuille pour une
vérification de stock.
Existe t?il un site ou à partir d'une macro existante, je pourrais
modifier
Exemple:
Dans une cellule (ou dans une plage) j'ai 120 pièces dès que le nombre
descendrai à 5 pièces, un mail me préviendra de cette limite
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Olivier D
Bonjour, Voici une procedure pour envoyer des mails Dans le visual Basic editeur, il faut cocher dans le menu Outils, Référence Microsoft Outlook Object Library
Sub SendMail()
Dim Email As Outlook.MailItem Dim strHTML As String Dim Obj_Outlook As Outlook.Application Dim New_Mail As Outlook.Items
' Création objet Application Outlook Set Obj_Outlook = CreateObject("outlook.Application")
' Création objet Nouveau message Set Email = Obj_Outlook.CreateItem(olMailItem) Email.ReadReceiptRequested = True Email.To = ";" Email.CC = "" Email.BCC = "" Email.Subject = "Avertissement renouvellement contrat" Email.FlagIcon = olYellowFlagIcon Email.Importance = olImportanceHigh ' Attachement de la pièce jointe Set Attachment = Email.Attachments Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du fichier joint """
' Première solution en format HTML strHTML = "<HTML>" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "<b> This is the test HTML message body</b></br>" strHTML = strHTML & "</BODY>" strHTML = strHTML & "</HTML>" Email.HTMLBody = strHTML
' Deuxième solution format texte 'Email.Body = "Bonjour voici mon message"
' Affichage mail Email.Display 'Ou envoi du mail ' Email.Send
End Sub
Bonjour à tous,
Avant de taper du code , je suis en train de rechercher et penser une solution me permettant dans un classeur de pouvoir via une macro m'envoyer une alerte lorsque qu'une valeur dépasse un certain seuil, ce qui me permettrai Que d'autre personnes saisissent des datas dans une feuille pour une vérification de stock.
Existe t?il un site ou à partir d'une macro existante, je pourrais modifier Exemple:
Dans une cellule (ou dans une plage) j'ai 120 pièces dès que le nombre descendrai à 5 pièces, un mail me préviendra de cette limite
merci de vos idées
Michel
Bonjour,
Voici une procedure pour envoyer des mails
Dans le visual Basic editeur, il faut cocher dans le menu Outils, Référence
Microsoft Outlook Object Library
Sub SendMail()
Dim Email As Outlook.MailItem
Dim strHTML As String
Dim Obj_Outlook As Outlook.Application
Dim New_Mail As Outlook.Items
' Création objet Application Outlook
Set Obj_Outlook = CreateObject("outlook.Application")
' Création objet Nouveau message
Set Email = Obj_Outlook.CreateItem(olMailItem)
Email.ReadReceiptRequested = True
Email.To = "xxx@hotmail.com;yyy@yahoo.fr"
Email.CC = "xyz@copieconforme.com"
Email.BCC = "aaa@copiecachee.com"
Email.Subject = "Avertissement renouvellement contrat"
Email.FlagIcon = olYellowFlagIcon
Email.Importance = olImportanceHigh
' Attachement de la pièce jointe
Set Attachment = Email.Attachments
Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du fichier
joint """
' Première solution en format HTML
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
Email.HTMLBody = strHTML
' Deuxième solution format texte
'Email.Body = "Bonjour voici mon message"
' Affichage mail
Email.Display
'Ou envoi du mail
' Email.Send
End Sub
Bonjour à tous,
Avant de taper du code , je suis en train de rechercher et penser une
solution me permettant dans un classeur
de pouvoir via une macro m'envoyer une alerte lorsque qu'une valeur
dépasse un certain seuil, ce qui me permettrai
Que d'autre personnes saisissent des datas dans une feuille pour une
vérification de stock.
Existe t?il un site ou à partir d'une macro existante, je pourrais
modifier
Exemple:
Dans une cellule (ou dans une plage) j'ai 120 pièces dès que le nombre
descendrai à 5 pièces, un mail me préviendra de cette limite
Bonjour, Voici une procedure pour envoyer des mails Dans le visual Basic editeur, il faut cocher dans le menu Outils, Référence Microsoft Outlook Object Library
Sub SendMail()
Dim Email As Outlook.MailItem Dim strHTML As String Dim Obj_Outlook As Outlook.Application Dim New_Mail As Outlook.Items
' Création objet Application Outlook Set Obj_Outlook = CreateObject("outlook.Application")
' Création objet Nouveau message Set Email = Obj_Outlook.CreateItem(olMailItem) Email.ReadReceiptRequested = True Email.To = ";" Email.CC = "" Email.BCC = "" Email.Subject = "Avertissement renouvellement contrat" Email.FlagIcon = olYellowFlagIcon Email.Importance = olImportanceHigh ' Attachement de la pièce jointe Set Attachment = Email.Attachments Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du fichier joint """
' Première solution en format HTML strHTML = "<HTML>" strHTML = strHTML & "<HEAD>" strHTML = strHTML & "<BODY>" strHTML = strHTML & "<b> This is the test HTML message body</b></br>" strHTML = strHTML & "</BODY>" strHTML = strHTML & "</HTML>" Email.HTMLBody = strHTML
' Deuxième solution format texte 'Email.Body = "Bonjour voici mon message"
' Affichage mail Email.Display 'Ou envoi du mail ' Email.Send
End Sub
Bonjour à tous,
Avant de taper du code , je suis en train de rechercher et penser une solution me permettant dans un classeur de pouvoir via une macro m'envoyer une alerte lorsque qu'une valeur dépasse un certain seuil, ce qui me permettrai Que d'autre personnes saisissent des datas dans une feuille pour une vérification de stock.
Existe t?il un site ou à partir d'une macro existante, je pourrais modifier Exemple:
Dans une cellule (ou dans une plage) j'ai 120 pièces dès que le nombre descendrai à 5 pièces, un mail me préviendra de cette limite
merci de vos idées
Michel
Michel
Hello,
Merci du code, pour l'envoi d'un mail , c'est bon, mais le princiapl je ne peut toujours pas donner un argument à une cellule, qui dirait si la valeur dépasse un certain seuil, envoie le mail ou non...!
je vais continuer à investiguer Merci tout de m^me et bonne journée
Merci du code, pour l'envoi d'un mail , c'est bon, mais le princiapl je
ne peut toujours pas donner un argument à une cellule, qui dirait si la
valeur dépasse un certain seuil, envoie le mail ou non...!
je vais continuer à investiguer
Merci tout de m^me et bonne journée
Merci du code, pour l'envoi d'un mail , c'est bon, mais le princiapl je ne peut toujours pas donner un argument à une cellule, qui dirait si la valeur dépasse un certain seuil, envoie le mail ou non...!
je vais continuer à investiguer Merci tout de m^me et bonne journée
