Ajouter cellule dans corp de texte Email

Résolu/Fermé

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 - 28 août 2020 à 18:33
NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 - 8 sept. 2020 à 17:31

Bonsoir,

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
Aller à la ligne dans une cellule excel - Guide
Comment creer un compte email - Guide
Transcription audio en texte word gratuit - Guide
Verrouiller cellule excel - Guide

8 réponses

Réponse 1 / 8

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
1 sept. 2020 à 09:42

Bonjour,

Autant de @Mail que de numero produit ?

Réponse 2 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
1 sept. 2020 à 20:08

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.

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
Modifié le 2 sept. 2020 à 07:23

Bonjour,

Donc un seul @Mail?
Dans votre reponse c'est un mail par numero!

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34 > f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025
2 sept. 2020 à 17:14

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

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712 > NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020
2 sept. 2020 à 18:36

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

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

Réponse 3 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
2 sept. 2020 à 18:43

Alors c'est avec un simple bouton.

Mais si c'est possible de le tous les X temps je suis preneurs

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
3 sept. 2020 à 07:04

Bonjour,
Le plus logique est d'envoye un @Mail sur l'événement Change des cellules VBA feuille.
Car avec un bouton ou un Timer, envoi x fois le meme @Mail des cellules ayant CHANGE car pas de memorisation de l'envoi
Vous faites ou ....

Réponse 4 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
3 sept. 2020 à 18:49

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.

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
4 sept. 2020 à 07:11

Bonjour,

l'utilisateur vas sur le fichier pour changer
Si vous le dites..
quel Interval de temps pour le timer ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
4 sept. 2020 à 23:07

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.

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
5 sept. 2020 à 07:17

Bonjour,

Dans ce cas, un timer ne va pas puisque vous fermez le fichier.
Le code sera dans le VBA de ThisWorkBook
La date de reference sera celle de la fermeture du fichier. Donc pas laisser le fichier ouvert une semaine!

Réponse 6 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
7 sept. 2020 à 21:45

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

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
8 sept. 2020 à 07:07

Bonjour,
Impatient?

Pour l'envoi, je teste quoi comme date ?
Il semblerait qu'il n'y ait aucune dans votre fichier!

Réponse 7 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
8 sept. 2020 à 16:25

Bonjour,

Je pense 2 semaines après la fermeture du fichier.

Encore une question, si imaginons, je ferme le fichier et que mon mail arrive 2 semaines après, est ce qu'un nouveau mail reviendra 2 semaines après si le fichier n'est pas ouvert entre-temps ?

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
8 sept. 2020 à 17:21

Re,

L'@Mail ne peut etre envoye que si vous ouvrez le fichier

Réponse 8 / 8

NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
8 sept. 2020 à 17:31

Ah cela complique un peu plus la tâche du coup.

Je pense faire autrement finalement, je vais faire un simple rappel sur l'agenda toutes les 2 semaines.

Je vous remercie de votre aide.

Discussions similaires

Excel si cellule contient texte alors...

Excel formule : savoir si une cellule contient partie texte

Excel : si ma cellule contient tel texte ou tel texte

Excel: Si contient *partie texte1* OU *partie de texte2 alors...