[AC-2003] Insérer un mailto:dans formulaire. [Résolu]

[bibi28]

Bonjour,
j'ai suivi à la lettre le code suivant poste par BrunoM45, j'utilise acces 2003 et outlook 2003, ca m'indique une erreur ligne 5.
Pourtant mon champ s'appelle bien email.
Pourquoi cela ne fonctionne t il pas
merci de vos reponses

a +

Voici le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub E_Mail_AfterUpdate()
  Dim MonEmail As String, ValRech As String, AdrEmail As String
  ' Format du line E-Mail
  MonEmail = Me.E_Mail.Value
  MonEmail = Left(MonEmail, InStr(1, MonEmail, "#") - 1)
  ValRech = "#mailto:"
  If Left(MonEmail, 8) <> ValRech Then
    AdrEmail = "mailto:" & MonEmail
    Me.E_Mail.Value = "#" & AdrEmail & "#"
  End If
End Sub

[paidge]

Bonjour,

Je ne vois pas l'intérêt d'insérer un mailto dans ton formulaire....Perso, dans mes tables, je ne garde que l'email (en vérifiant que la syntaxe correspond bien à une adresse email).

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub txt_email_Exit(Cancel As Integer)
 
    ' ===== Vérifie si l'adresse entrée contient bien un @ et qu'il n'y a aucun guillemet =====
    If InStr(1, Me!email, "@", vbTextCompare) = 0 Or InStr(1, Me!email, "'", vbTextCompare) > 0 Or InStr(1, Me!email, """", vbTextCompare) > 0 Then
        MsgBox "L'adresse de messagerie que vous venez d'entrer n'est pas une adresse de messagerie Internet valide !", vbExclamation, "Alerte FH"
        Me("txt_email") = ""
        Exit Sub
    End If
 
End Sub

Après sur les formulaires, je place un bouton avec ce genre de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub btn_envoyerMail_Click()
 
    ' ===== Test qui vérifie si le champ Email est Null =====
    If IsNull(Me.email) Then
 
        ' ===== Si oui, on invite l'utilisateur a saisir une adresse mail valide =====
        MsgBox ("Veuillez saisir l'adresse email de cet employé")
 
    Else
 
        ' ===== Sinon, transforme le bouton en un lien hypertexte "mailto : adresse@server.com" =====
        Application.FollowHyperlink "mailto:" & Me.email
    End If
 
End Sub

[bibi28]

Bonjour,

je teste et te tiens informé

a +

[bibi28]

Rebonjour à tous,

j'ai testé et cela ne fonctionne pas.

Mon champ s'appelle bien Email.

Ce que je veux, c'est dans mon formulaire, des que je clique sur le bouton, cela ouvre outllok 2003 et m'insere automatiquement l'email actuellement visible sur mon formulaire ouvert.

Merci de vos reponses.

[SeaWolf601]

Hello,

personellement quand je veux faire ce genre de chose je passe par la commande SendObject.

Code :

DoCmd.SendObject

Bien utilisée, tu peux envoyer ce que tu veux à qui tu veux.

[bibi28]

je vais tester mais je fais comment et ou pour DoCmd.SendObject

merci pour ta reponse

[SeaWolf601]

Sur ton bouton pour envoyer l'E-mail.
Tu met cela sur l'évennement SurClick (OnClick).

[bibi28]

je teste

[bibi28]

ca ouvre bien outlook mais cela n inserres pas l adresse email

[SeaWolf601]

Normal, il faut que tu précise cela dans tes arguments.


Soit un champ dans lequel il y a l'adresse email du destinataire : AdresseDestinataire
et un autre dans lequel il y a le message : MessageMail

ça devrait donner quelque chose comme cela :

Code :

DoCmd.SendObject , "", "", Me.AdresseDestinataire, "", "", "", Me.MessageMail, False, ""

Et su tu met True à la place de False, Outlook te montrera l'E-Mail avant de l'envoyer. Sinon il te mettra un message d'alerte, te disant qu'un programme essaye d'envoyer un message. (sécurité MSOffice incontournable sauf si tu utilise OutlookExpress)

Code :

DoCmd.SendObject , "", "", Me.AdresseDestinataire, "", "", "", Me.MessageMail, True, ""

[bibi28]

Bonjour à tous,

j'ai trouvé le code suivant qui fonctionne parfaitement

Code :

1
2
3
Private Sub Commande2_Click()
Application.FollowHyperlink "mailto:" & Me![E_mail]
End Sub

merci à tous

[paidge]

Bonjour,

C'est ce que je t'ai mis plus haut lol :p

Content que ton problème soit résolu