Bonjour,
J'essaie d'envoyer un e-mail basé sur un changement indirect de valeur de cellule (par exemple> 7), avec la pièce jointe de l'e-mail et une référence de cellule spécifique aux cellules modifiées dans le corps de mon e-mail de sortie. J'ai la modification indirecte de la valeur de la cellule en fonction des critères. Cependant, j'obtiens une erreur 424 lorsque j'essaie de définir une variable pour appeler l'adresse de la cellule dans mon courrier électronique. Pourriez-vous aider? Je sens que je suis proche.
Dim xRg comme plage
Dim xRgSel comme plage
'Définir la plage et la cible
Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Dim xRgPre comme plage
On Error Resume Next
Si Target.Cells.Count > 1 Alors Quittez Sub
Définir xRg = Plage("Q2:Q43")
Définir xRgPre = xRg.Precedents
Définir xRgSel = Intersection(Cible, xRg)
ActiveWorkbook.Sauvegarder
Si xRg.Valeur > 7 Alors
Appelez Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Alors
Si fin
Si fin
End Sub
Sous-mail_small_Text_Outlook()
Dim xOutApp en tant qu'objet
Estomper xOutMail en tant qu'objet
Estomper xMailBody en tant que chaîne
Set xOutApp = CreateObject("Outlook.Application")
Définir xOutMail = xOutApp.CreateItem(0)
xMailBody = "Bonjour, cellule(s)" & xRgSel.Address(False, False) & _
" dans la feuille de calcul '" & Me.Name & "' sont 3 jours après l'admission" & vbNewLine & vbNewLine & _
"Veuillez examiner et contacter le(s) prospect(s)" & vbNewLine & _
"Je vous remercie"
On Error Resume Next
Avec xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Jours depuis la prise de plomb"
.Corps = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Afficher 'ou .Envoyer
Terminer par
En cas d'erreur GoTo 0
Définir xOutMail = Rien
Définir xOutApp = Rien
End Sub
Merci !
J'essaie d'envoyer un e-mail basé sur un changement indirect de valeur de cellule (par exemple> 7), avec la pièce jointe de l'e-mail et une référence de cellule spécifique aux cellules modifiées dans le corps de mon e-mail de sortie. J'ai la modification indirecte de la valeur de la cellule en fonction des critères. Cependant, j'obtiens une erreur 424 lorsque j'essaie de définir une variable pour appeler l'adresse de la cellule dans mon courrier électronique. Pourriez-vous aider? Je sens que je suis proche.
Dim xRg comme plage
Dim xRgSel comme plage
'Définir la plage et la cible
Private Sub Worksheet_Change (Cible ByVal en tant que plage)
Dim xRgPre comme plage
On Error Resume Next
Si Target.Cells.Count > 1 Alors Quittez Sub
Définir xRg = Plage("Q2:Q43")
Définir xRgPre = xRg.Precedents
Définir xRgSel = Intersection(Cible, xRg)
ActiveWorkbook.Sauvegarder
Si xRg.Valeur > 7 Alors
Appelez Mail_small_Text_Outlook
ElseIf (Not xRgPre Is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Alors
Si fin
Si fin
End Sub
Sous-mail_small_Text_Outlook()
Dim xOutApp en tant qu'objet
Estomper xOutMail en tant qu'objet
Estomper xMailBody en tant que chaîne
Set xOutApp = CreateObject("Outlook.Application")
Définir xOutMail = xOutApp.CreateItem(0)
xMailBody = "Bonjour, cellule(s)" & xRgSel.Address(False, False) & _
" dans la feuille de calcul '" & Me.Name & "' sont 3 jours après l'admission" & vbNewLine & vbNewLine & _
"Veuillez examiner et contacter le(s) prospect(s)" & vbNewLine & _
"Je vous remercie"
On Error Resume Next
Avec xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Jours depuis la prise de plomb"
.Corps = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Afficher 'ou .Envoyer
Terminer par
En cas d'erreur GoTo 0
Définir xOutMail = Rien
Définir xOutApp = Rien
End Sub
Merci !