1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
|
Private Sub Form_AfterInsert()
If MsgBox("Bonjour,voulez vous prévenir le Chef de Projet qu'una action a été ajoutée au Projet?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
Else
Dim orst As Recordset
Set orst = Me.RecordsetClone
Dim strNomAction As String
orst.MoveLast
If Not orst.EOF Then strNomAction = orst("Nom_Action")
Dim rst As DAO.Recordset
Dim strSQL As String
Dim OL As Object
Dim OLmail As Object
On Error Resume Next
Set OLk_Appli = GetObject("Outlook.Application")
If OLk_Appli Is Nothing Then
' mettre le bon chemin outlook
OLk_OK = Shell("C:\Program Files (x86)\Microsoft Office\Office15\outlook.exe", 1)
End If
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
With OLmail
' MsgBox "Voulez vous envouyer "
strSQL = "SELECT [Email] FROM [Agents]" _
& " WHERE [Agent] ='" & [Parent]![Chef de Projet] & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
.TO = rst("[Email]")
If .TO = "" Then
MsgBox "Pas de mail enregistré pour ce chef de Projet !", 16
Exit Sub
End If
.HtmlBody = "Bonjour," & "<br />" & "Une nouvelle action " & strNomAction & " a été ajoutée à votre projet : " & "<u>" & "<b>" & [Parent].[Nom du Projet] & "</u>" & "</b>"
.Subject = "Test_envoi_Mail Access lors de l'ajout d'une nouvelle action dans le projet " & [Parent].[Chef de Projet]
' .Body = "Bonjour, une nouvelle action a été rajouttée à votre projet " & Chr(13) & " L'action : " & [Me].[Nom_Action].[CurrentRecord] & " du projet : " & [Parent].[Nom du Projet] & " du département : " & [Parent].[Departement_DIR] & " a été modifiée, le statut est passé au statut : " & Me.[Statut] & ""
'.Body = "Bonjour, " & Chr(13) & " L'action : " & [Me].[Action] ' & " du projet : " & [Parent].[Nom du Projet] & " du département : " & [Parent].[Departement_DIR] & " a été modifiée, le statut est passé au statut : " & Me.[Statut].Column(1) & ""
.Send
End With
Set OLmail = Nothing
Set OL = Nothing
Set OLk_Appli = Nothing
' MsgBox "Un Mail a été envoyé pour indiquer le changement de statut du projet à : " & [Parent].[Chef de Projet], vbInformation, ""
FormattedMsgBox "Un Mail a été envoyé à : " & [Parent].[Chef de Projet] & "@ pour indiquer l'ajout de la nouvelle action : @[" & strNomAction & "] du projet " & [Parent].[Nom du Projet], _
vbOKOnly + vbExclamation, "My Application"
End If
End Sub |
Partager