envoi mail access

[flo65000]

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]

Re : envoi mail access

Bonjour Flo65000

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

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]

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]

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+