Discussion :

[pev15]

Bonjours à tous

Voici mon probléme :
J'aimerais intégrer dans un formulaire un bouton permettant d'envoyer un mail via outlook. le bouton doit justre préremplir les champs du mail et l'utilisateur n'aura plus qu'à envoyer.
Aprés quelque recherche, j'ai trouver le code suivant qui utilise une référence outlook de vba (microsoft outlook 11.0) :

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
Sub UseOutlook()
     Dim Mail_Outlook As Object
     Dim Message_Outlook As Object
     Dim Body_mail As String
     Set Mail_Outlook = CreateObject("Outlook.Application")
     Set Message_Outlook = Mail_Outlook.CreateItem(0)
     Message_Outlook.To = "pev15@hotmail.com"
     Message_Outlook.Cc = " destinataire "
     Message_Outlook.Bcc = " destinataire "
     Message_Outlook.Subject = " Sujet du mail "
     Body_mail = "Contenu "
     Body_mail = Body_mail & Chr(13) & Chr(10) '
     Body_mail = Body_mail & "Contenu.."
     Message_Outlook.body = Body_mail
     Message_Outlook.send
     Set Mail_Outlook = Nothing
End Sub

La compilation ne pose pas de probléme, mais à l'éxécution le debug se bloque a la ligne en gras
Je ne comprend pas d'ou vient le probléme, j'ai l'impression que l'objet mail et mal instancié mais pourtant il figure bien dans l'explorateur d'objet de mon environnement VB.
a terme je veux aussi mettre dans les destinataires le résultat d'une requete sur une de mes tables (avec un record set) mais pas la peine d'implémenter ça si je ne sais pas faire fonctionner le code avec un seul destinataire.

Merci d'avance.

[isa911]

En mettant juste
Dim Message_Outlook
dans la declaration ?

[pev15]

Bonjour et merci pour ta réponse.

j'ai essayé ta solution mais ça ne change rien. L'erreur est tourjours la.

[isa911]

C'est quoi le message d'erreur ?

[pev15]

Il s'agit d'une erreur d'éxécution :

Dans une boite de dialogue j'ai l'erreur d'éxécution '-2147287037 (80030003) : echec de l'opération.

La boite de dialogue m'invite en mode débug et me surligne la ligne suivante :
Set Message_Outlook = Mail_Outlook.CreateItem(0)

en mettant le pointeur de souris sur la ligne, l'info bull m'affiche :
Message_Outlook = nothing

[isa911]

Bizarre...
Dans ton gestionnaire de tache, tu en as pas plusieurs des Outlook ouvert ?
Moi avant d'attaquer la creation du mail, je passe dans cette fonction :

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
Function Outlook_LOGIN() As Boolean
Dim MAILBOX_STATE, Folder
    On Error GoTo Outlook_Login_Err
    Set Outlook = GetObject(, "Outlook.Application")
    If Outlook Is Nothing Then
recup_err:
        Set Outlook = CreateObject("Outlook.Application")
        Set MAPI = Outlook.GetNamespace("MAPI")
        MAILBOX_STATE = 200
        Set Folder = MAPI.GetDefaultFolder(6) 
        Folder.Display
    End If
 
    Exit Function
Outlook_Login_Err:
If err.Number <> 0 Then
    If err.Number = 429 Then
        GoTo recup_err
    End If
    Exit Function
End If
End Function