Envoi email en fonction d'un texte dans une cellule
zapuro
Messages postés
1
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite envoyer un email a une adresse en fonction de la valeur d'une cellule si cette cellule a une autre valeur je voudrais l'envoyer à une autre personne.
Je débute en VBA, j'ai réussit a faire l'envoi du mail mais la condition en fonction de la valeur de la cellule ne fonctionne pas
voici le code
Private Sub Worksheet_Change(ByVal target As Range)
Dim Adresse As String, olApp As Object, M As Object
offset = target.offset(, -10).Value
If target.Column = 11 And target.Row > 1 Then
Adresse = "mathieu.paruzot@louisvuitton.com"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "Statut commande modifié"
.Body = "Le statut de votre commande ligne " & target.Row & " de l'onglet RS est " & target.Value & ""
.Recipients.Add Adresse
.Send
End With
End If
End Sub
pouvez vous m'aider
Je souhaite envoyer un email a une adresse en fonction de la valeur d'une cellule si cette cellule a une autre valeur je voudrais l'envoyer à une autre personne.
Je débute en VBA, j'ai réussit a faire l'envoi du mail mais la condition en fonction de la valeur de la cellule ne fonctionne pas
voici le code
Private Sub Worksheet_Change(ByVal target As Range)
Dim Adresse As String, olApp As Object, M As Object
offset = target.offset(, -10).Value
If target.Column = 11 And target.Row > 1 Then
Adresse = "mathieu.paruzot@louisvuitton.com"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "Statut commande modifié"
.Body = "Le statut de votre commande ligne " & target.Row & " de l'onglet RS est " & target.Value & ""
.Recipients.Add Adresse
.Send
End With
End If
End Sub
pouvez vous m'aider
A voir également:
- Envoi email en fonction d'un texte dans une cellule
- Excel cellule couleur si condition texte - Guide
- Fonction si et - Guide
- Comment creer un compte email - Guide
- Transcription audio en texte word gratuit - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
Bonjour,
Koi t-est-ce:
ici vous devez mettre une valeur de cellule!!!
exemple:
Koi t-est-ce:
offset = target.offset(, -10).Value
ici vous devez mettre une valeur de cellule!!!
exemple:
Private Sub Worksheet_Change(ByVal target As Range)
Dim Adresse As String, olApp As Object, M As Object
Offset = target.Offset(, -10).Value
If target.Column = 11 And target.Row > 1 Then
Adresse = celluleX
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.To = Adresse
.Subject = "Statut commande modifi?"
.Body = "Le statut de votre commande ligne " & target.Row & " de l'onglet RS est " & target.Value & ""
.Display 'visu
'.Send 'envoi direct
End With
End If
End Sub
