Bonjour,
voici mon code que j'utlise pour que l'apllication m'envoie un email lors du transfert d'un employe entre les sites
mon problème vient du fait que ceci ne fonctionne que si outlook est deja ouvert. Dans le cas contraire il m'affiche le bug à la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set Couriel = appOutLook.CreateItem(olMailItem)
qu'est ce que ne fonctionne pas??
lorsque j'ouvre le gestionnaire de tâches je vois bien que outlook est en execution. Est ce que quelqu'un aurait une idée ? Merci d'avance
voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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