bonsoir tous le mondes
je suis un débutant dans ce langage j'ai besoin d'aide svp
j'ai crée un code pour envoyé une alerte par mail
Je souhaite que lorsque « attention ,date depassée » apparait en cellule E5 à Exxx,(Range) un e_mail me soit envoyé avec dans le corps du mail:
la description de la tache => colonne F (première cellule F7) « feuille de suivi »
code que j'ai deja crée
Private Sub Worksheet_Activate()
Sub activateSheet(sheetname As String)
'activates sheet of specific name
Worksheets("feuille de suivi").Activate
End Sub
Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Dim cellule As Range
Dim i As Integer
'ici je repère la dernière ligne vide pour la Collections des données
L = Range("B65536").End(xlUp).Row + 1
'on met la cellule en F5
Set cellule = ActiveWorkbook.Sheets(0).Range("F5")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
i = 0
'on fait la boucle en imaginant que F5 est toujours remplis
While cellule.Offset(i, 0).Value <> ""
If cellule.Offset(i, 11).Value = "Attention, date dépasée!" Then
strbody = "description : " & cellule.Offset(i, 0).Value & vbCrLf
End If
Wend
With OutMail
.To = "mounir_kraim@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "Avertissement sur Tâche"
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
End Sub
je suis un débutant dans ce langage j'ai besoin d'aide svp
j'ai crée un code pour envoyé une alerte par mail
Je souhaite que lorsque « attention ,date depassée » apparait en cellule E5 à Exxx,(Range) un e_mail me soit envoyé avec dans le corps du mail:
la description de la tache => colonne F (première cellule F7) « feuille de suivi »
code que j'ai deja crée
Private Sub Worksheet_Activate()
Sub activateSheet(sheetname As String)
'activates sheet of specific name
Worksheets("feuille de suivi").Activate
End Sub
Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Dim cellule As Range
Dim i As Integer
'ici je repère la dernière ligne vide pour la Collections des données
L = Range("B65536").End(xlUp).Row + 1
'on met la cellule en F5
Set cellule = ActiveWorkbook.Sheets(0).Range("F5")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
i = 0
'on fait la boucle en imaginant que F5 est toujours remplis
While cellule.Offset(i, 0).Value <> ""
If cellule.Offset(i, 11).Value = "Attention, date dépasée!" Then
strbody = "description : " & cellule.Offset(i, 0).Value & vbCrLf
End If
Wend
With OutMail
.To = "mounir_kraim@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "Avertissement sur Tâche"
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
End Sub