Bonjour,
Je souhaite développer un outil pour suivre une série de problème d'utilisation d'un autre outil.
En fait, j'aimerais que les personnes qui rencontrent des problèmes les inscrivent dans une cellule et une fois qu'ils sauvegardent, qu'un mail soit automatiquement envoyé à une tierce personne pour le traiter.
Puis, selon le statut du problème, que ca suive la même logique pour avertir telle ou telle personne dont le mail est renseigné.
J'ai commencé à travailler sur l'idée mais tout ne fonctionne pas complètement (voir fichier joint)
Je vous joint également le code ci-dessous (je n'arrive pas à attacher le fichier avec le code inclus directement):
Est-ce que quelqu'un aurait une idée?
Je ne suis pas un grand expert alors n'hésitez pas à mettre des notes dans le code pour que je puisse faire des retouches pour l'adapter dans le cas où je devrais y apporter des modifications par la suite.
Merci beaucoup.
Je souhaite développer un outil pour suivre une série de problème d'utilisation d'un autre outil.
En fait, j'aimerais que les personnes qui rencontrent des problèmes les inscrivent dans une cellule et une fois qu'ils sauvegardent, qu'un mail soit automatiquement envoyé à une tierce personne pour le traiter.
Puis, selon le statut du problème, que ca suive la même logique pour avertir telle ou telle personne dont le mail est renseigné.
J'ai commencé à travailler sur l'idée mais tout ne fonctionne pas complètement (voir fichier joint)
Je vous joint également le code ci-dessous (je n'arrive pas à attacher le fichier avec le code inclus directement):
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem
Set OlApp = CreateObject("Outlook.application")
Set OlItem = OlApp.CreateItem(olMailItem)
For i = 3 To 6
Set OlItem = OlApp.CreateItem(olMailItem)
With OlItem
destended = Sheets("Sheet1").Cells(i, 5)
desttostart = "contact@exemple.com"
destforwarded = Sheets("Sheet1").Cells(i, 11)
issue = Sheets("Sheet1").Cells(i, 4)
Priority = Sheets("Sheet1").Cells(i, 2)
Date = Sheets("Sheet1").Cells(i, 1)
estimation = Sheets("Sheet1").Cells(i, 12)
If Sheets("Sheet1").Cells(i, 5) <> "" & Sheets("Sheet1").Cells(i, 7) = "" Then
.To = desttostart
.Subject = "Erreur " & Date & "" & Priority & " Ligne " & i&
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>" _
& "Bonjour,<p>" _
& "Merci de consulter le fichier.<br>" _
& "Nouveau problème concernant:<font color='blue'>" & issue & "</font> from " & destended & "<br>" _
& " <p>" _
& "Merci. <p>" _
& "Bonne journée. <p>" _
& "</body><HTML>"
.Send
End If
If Sheets("Sheet1").Cells(i, 5) <> "" & Sheets("Sheet1").Cells(i, 7) = "Transmis" & Sheets("Sheet1").Cells(i, 10) = "" Then Sheets("Sheet1").Cells(i, 10) = "Y" & _
.To = destforwarded
.Subject = "Erreur " & Date & "" & Priority & " Ligne " & i&
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>" _
& "Bonjour,<p>" _
& "Merci de consulter le fichier.<br>" _
& "Nouveau problème concernant:<font color='blue'>" & issue & "</font> from " & destended & " < br > " _
& " <p>" _
& "Merci. <p>" _
& "Bonne journée. <p>" _
& "</body><HTML>"
.Send
End If
If Sheets("Sheet1").Cells(i, 5) <> "" & Sheets("Sheet1").Cells(i, 7) = "Commencé" & Sheets("Sheet1").Cells(i, 9) = "" Then Sheets("Sheet1").Cells(i, 9) = "Y" & _
.To = destended
.Subject = "Problème du " & Date & "" & Priority & " Ligne " & i&
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>" _
& "Bonjour,<p>" _
& "Le problème concernant <font color='blue'>" & issue & "</font> a été <b>commencé</b>.< br > " _
& " <p>" _
& "Date estimative de résolution: " & estimation & ". <p>" _
& "Merci. <p>" _
& "Bonne journée. <p>" _
& "</body><HTML>"
.Send
End If
If Sheets("Sheet1").Cells(i, 5) <> "" & Sheets("Sheet1").Cells(i, 7) = "Terminé" & Sheets("Sheet1").Cells(i, 8) = "Y" & Sheets("Sheet1").Cells(i, 11) = "" Then Sheets("Sheet1").Cells(i, 11) = "Y" & _
.To = destended
.Subject = "Problème du " & Date & "" & Priority & " ligne " & i&
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>" _
& "Bonjour,<p>" _
& "Le problème concernant <font color='blue'>" & issue & "</font> a été <font color='red'>résolu</font>.<br>" _
& "Vous pouvez consulter le fichier pour les commentaires.<br>" _
& " <p>" _
& "Merci. <p>" _
& "Bonne journée. <p>" _
& "</body><HTML>"
.Send
End If
If Sheets("Sheet1").Cells(i, 5) <> "" & Sheets("Sheet1").Cells(i, 7) = "Terminé" & Sheets("Sheet1").Cells(i, 8) = "N" & Sheets("Sheet1").Cells(i, 11) = "" Then Sheets("Sheet1").Cells(i, 11) = "Y" & _
.To = destended
.Subject = "Problème du " & Date & "" & Priority & " ligne " & i&
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body>" _
& "Bonjour,<p>" _
& "Le problème concernant <font color='blue'>" & issue & "</font> a été <font color='red'>traité mais n'est pas résolu</font>.<br>" _
& "Vous pouvez consulter le fichier pour les commentaires.<br>" _
& " <p>" _
& "Merci. <p>" _
& "Bonne journée. <p>" _
& "</body><HTML>"
.Send
End If
End With
Next i
End SubEst-ce que quelqu'un aurait une idée?
Je ne suis pas un grand expert alors n'hésitez pas à mettre des notes dans le code pour que je puisse faire des retouches pour l'adapter dans le cas où je devrais y apporter des modifications par la suite.
Merci beaucoup.
