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 53 54 55 56 57 58 59 60 61
|
Option Compare Database
Dim Libre As Boolean
Private Sub Commande10_Click()
Dim Demander As String
If Not IsNull(SelectedMatricule.Value) Then
If Me.Site_empl = [Forms]![Menu Général]![SiteChoisi] Then
MsgBox "L'employé appartient déja à votre site", , "Transfert"
Else
Demander = MsgBox("Etes vous sur d'effectuer le transfert?", vbYesNo)
If Demander = 6 Then
Dim I As Integer
Dim Couriel As Outlook.MailItem
Dim appOutLook As Outlook.Application
' créer un nouvel item mail
Set appOutLook = New Outlook.Application 'createObject("Outlook.Appliction")
Set Couriel = appOutLook.CreateItem(olMailItem)
' les paramètres
Couriel.To = "Monadresse"
Couriel.Subject = "*Transfert*"
If Libre Then 'Enregistrer le nouveau site
Me.Site_empl = [Forms]![Menu Général]![SiteChoisi]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Couriel.Body = Me.Nom & " " & Me.Prénom & " " & Me.Matricule & " Appartient à " & Me.Site_empl & " à été transférer vers " & [Forms]![Menu Général]![SiteChoisi]
' envoie le message
Couriel.Send
MsgBox "Transfert réussie.", , "Transfert"
Else
Couriel.Body = Me.Nom & " " & Me.Prénom & " " & Me.Matricule & " Appartient à " & Me.Site_empl & " Transferer Vers " & [Forms]![Menu Général]![SiteChoisi]
' envoie le message
Couriel.Send
MsgBox "Transfert réussie, l'employé sera disponible pour votre site dans un délai d'une journée", , "Transfert"
End If
' détruit les références aux objets
Set Couriel = Nothing
Set appOutLook = Nothing
End If
End If
Else
MsgBox "Veuillez choisir un employé pour le transfert", , "Transfert"
End If
Set outlookapp = Nothing
DoCmd.Close acForm, "DNGeneral"
End Sub |
Partager