Débutant: Ouverture Outlook via lien sur formulaire

**jrogron** · 10/08/2006, 15h08

Bonjour,

J'ai un formulaire sur lequel j'ai des liens avec des adresses email.
Cependant quand je clic sur l'un de ces liens alors cela cherche une page internet et cela n'ouvre pas ma boite outlook par défaut ce que je souhaite.

Merci d'avance de vos réponses,

Jocelyn

**Tatoine** · 10/08/2006, 15h18

tu as quoi comme code au niveau de tes liens?
un truc du genre?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.SendObject acSendNoObject ....

**jrogron** · 10/08/2006, 16h37

Eh bien en faite je n'en ai pas mis.
Pour les liens avec des adresses internet cela fonctionne automatiquement et je pensais que cela serai la même chose avec des liens emails.

Par conséquent si quelqu'un a une idée pour le code à mettre car je ne sais pas qu'elle commande utiliser.

Merci,

Jocelyn

**pgz** · 10/08/2006, 18h22

Bonjour,

L'automation d'outlook, c'est un sujet classique. Tu as fait une recherche?
Un bonne référence ici.
Ensuite tu auras le pb de validation de la fenêtre d'alerte, et en cherchant tu trouveras une solution avec ClickYes là.

Bon courage,

pgz

**Pitou5464** · 10/08/2006, 19h01

sinon tu créer un nouveau module outlook et tu y met ceci

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
Const olMailItem = 0
Public Function SendOutlookMsg(strSubject As String, strTo As String, _
    strHTML As String, Optional intUseBCC As Integer = 0) As Integer
' Function to send an email message using Outlook
' Inputs: Subject of the message
'         List of valid "To" email addresses
'         HTML for the body of the message
'         Send using BCC flag (optional)
' Output: True if successful
' Note: This demo version only formats and displays a new
'       message.  Use ObjMail.Send instead of .Display
'       to actually send the message
 
Dim objOL As Object, objMail As Object
 
    ' Set an error trap
    On Error GoTo SendOutlookMsg_Err
 
    ' Get a pointer to Outlook - late binding
    Set objOL = CreateObject("Outlook.Application")
    ' Create a new email
    Set objMail = objOL.CreateItem(olMailItem)
    ' Set the subject
    objMail.Subject = strSubject
    ' Set To or BCC
    If intUseBCC = True Then
        objMail.BCC = strTo
    Else
        objMail.To = strTo
    End If
    ' Insert the HTML of the message
    objMail.HTMLBody = strHTML
    ' Display it
    objMail.Display
    ' Done - clear objects
    Set objMail = Nothing
    Set objOL = Nothing
    ' Return true
    SendOutlookMsg = True
 
SendOutlookMsg_Exit:
    Exit Function
 
SendOutlookMsg_Err:
    ' Log the error
    ErrorLog "SendOutlookMsg", Err, Error
    ' Bail
    Resume SendOutlookMsg_Exit
 
End Function

Ensuite dans ton code sur un evenement sur click tu met ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim strTo As String, strTitle As String, strHTML As String, strWork As String
strTo = strTo & Me!Email & ";"
If Not (SendOutlookMsg("", strTo, , False)) Then
'erreur
    MsgBox "Echec de l'envoi du message à " & Me.Email & ""
End If