envoi mail access

flo65000 · 12 Mars 2009

Bonjour a tous,
j'ai fais une base de données avec une colonne mail. je voudrais lorsque je clique sur l'adresse ça m'envoie directement sur la boite mail personnel si possible à la fenetre nouveau message.

merci de repondre cordialement

Compte Supprimé 979 · 13 Mars 2009

Re : envoi mail access

Bonjour Flo65000

Voici le code que j'utilise pour permettre ce que tu demandes

Code:

Private Sub EMail_AfterUpdate()
  Dim MonEmail As String, ValRech As String, AdrEmail As String
  MonEmail = Me.EMail.Value
  MonEmail = Left(MonEmail, InStr(1, MonEmail, Chr(35), vbTextCompare) - 1)
  ValRech = Chr(35) & "mailto:"
  If Left(MonEmail, 8) <> ValRech Then
    AdrEmail = "mailto:" & MonEmail
    Me.EMail.Value = Chr(35) & AdrEmail & Chr(35)
  End If
End Sub

A tester 😉

flo65000 · 15 Mars 2009

Re : envoi mail access

merci a toi
desolé de te demander ça, mais je sais pas ou je dois modifier la macro.

merci de me repondre

Compte Supprimé 979 · 14 Avril 2009

Re : envoi mail access

Bonjour Flo65000,

Désolé de n'avoir pas vu ta dernière demande avant 😱

En réponse à ton MP et ta dernière question de ce fil,
le code est à mettre dans l'évènement après mise à jour "AfterUpdate"
de ton champ "Email" si tu l'as nommé ainsi 😉

Ci-joint une mini base pour une meilleure compréhension 😀

A+

envoi mail access

flo65000

XLDnaute Occasionnel

Compte Supprimé 979

Guest

flo65000

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Pièces jointes

Discussions similaires

envoi mail access

flo65000

XLDnaute Occasionnel

Compte Supprimé 979

Guest

flo65000

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency