Ajouter cellule dans corp de texte Email
Résolu
NoahZ
Messages postés
113
Date d'inscription
Statut
Membre
Dernière intervention
-
NoahZ Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
NoahZ Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
Bonsoir,
Il me faudrait ajouter certaines cellule avec la valeur CHANGE dans mon email (Voir le code)
Merci d'avance
Il me faudrait ajouter certaines cellule avec la valeur CHANGE dans mon email (Voir le code)
Sub test_MailAuto()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim i As Integer, j As Integer
For i = 2 To Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
If Sheets("Feuil1").Range("E" & i).Value = "CHANGE" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<BODY style=font-size:11pt;font-family:Calibri>Bonjour merci d'effectuer cela,<br><br>" & _
"Changer produits numéro: (et la mettre la cellule par rapport à la valeur change)"
On Error Resume Next
With OutMail
.Display
.To = "MonEmail@com.com"
.Subject = "Changement"
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display
.Send
End With
On Error GoTo 0
End If
Next i
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Merci d'avance
A voir également:
- Ajouter cellule dans corp de texte Email
- Excel cellule couleur si condition texte - Guide
- Comment creer un compte email - Guide
- Aller à la ligne dans une cellule excel - Guide
- Transcription audio en texte word gratuit - Guide
- Ajouter agenda outlook dans google agenda - Guide
8 réponses
Bonsoir,
Oui comme ça pour chaque demande traitée le mail serait mis dans un dossier spécial, mais si cela n'est pas possible un seul mail avec tous les numéros de produits va aussi.
Merci de votre réponse.
Oui comme ça pour chaque demande traitée le mail serait mis dans un dossier spécial, mais si cela n'est pas possible un seul mail avec tous les numéros de produits va aussi.
Merci de votre réponse.
Oups,
Je me suis rendu compte que l'en- tête de me questionne n'est pas la bonne (mauvais copier-coller désolé)
Enfaite je reçois un mail (déclencher par toutes les cellules qui ont la valeur CHANGE), et je voudrai savoir si c'est possible de mettre quelle cellule envoie quel mail.
Exemple la cellule C4 et D6 sont en valeur CHANGE, je reçois donc 2 mails et j'aimerais que dans le mail de la cellule C4 il soit précisé que c'est elle, et la même chose pour D6.
Désolé pour mon erreur et merci de vos réponses,
Noah
Je me suis rendu compte que l'en- tête de me questionne n'est pas la bonne (mauvais copier-coller désolé)
Enfaite je reçois un mail (déclencher par toutes les cellules qui ont la valeur CHANGE), et je voudrai savoir si c'est possible de mettre quelle cellule envoie quel mail.
Exemple la cellule C4 et D6 sont en valeur CHANGE, je reçois donc 2 mails et j'aimerais que dans le mail de la cellule C4 il soit précisé que c'est elle, et la même chose pour D6.
Désolé pour mon erreur et merci de vos réponses,
Noah
Re,
Ok, comment la procedure d'envoi @Mail va etre declanchee?
En attendant code qui regarde toutes les cellules colonnes E et envoi @Mail par cellule avec l'adresse de cette cellule
Ok, comment la procedure d'envoi @Mail va etre declanchee?
En attendant code qui regarde toutes les cellules colonnes E et envoi @Mail par cellule avec l'adresse de cette cellule
Sub test_MailAuto()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim i As Integer, j As Integer
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Sheets("Feuil1")
Nb = .Range("E" & Rows.Count).End(xlUp).Row
For i = 2 To Nb
If .Range("E" & i).Value = "CHANGE" Then
strbody = "<BODY style=font-size:11pt;font-family:Calibri>Bonjour merci d'effectuer cela,<br><br>" & _
"Changer produits numéro: Cellule " & "E" & i '(et la mettre la cellule par rapport à la valeur change)"
On Error Resume Next
With OutMail
.Display
.To = "MonEmail@com.com"
.Subject = "Changement"
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display 'Ouvre Outlook
'.Send 'Envoi direct
End With
On Error GoTo 0
End If
Next i
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Alors c'est avec un simple bouton.
Mais si c'est possible de le tous les X temps je suis preneurs
Mais si c'est possible de le tous les X temps je suis preneurs
Non car dès que la cellule et sur CHANGE l'utilisateur vas sur le fichier pour changer les donner du nouveau produit et donc supprimer l'ancien.
Un timer ne me dérange pas dans mon cas.
Un timer ne me dérange pas dans mon cas.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Chaque mois, à tester.
Est-t'il possible d'avoir le code pour 2 semaines et pour 1 mois svp ?
Merci beaucoup pour vos réponses.
Est-t'il possible d'avoir le code pour 2 semaines et pour 1 mois svp ?
Merci beaucoup pour vos réponses.
Oui parfait le fichier n'est pas fait pour rester ouvert longtemps.
Est-il possible d'avoir le bout de code à mettre svp ?
Merci beaucoup pour vos réponses et désolé pour la réponse tardive
Est-il possible d'avoir le bout de code à mettre svp ?
Merci beaucoup pour vos réponses et désolé pour la réponse tardive
