Discussion :

[Gregk84]

Bonjour,

J'ai un formulaire qui me permet d'insérer les données clients dans la table clients. Dans ce même formulaire, j'ai ajouter la table produits.

Je souhaiterais créer un bouton dans mon formulaire qui :

1) Ouvre thunderbird
2) Place en sujet :
- Ma référence,
- le nom et prénom du client,
- Et me permette de sélectionner de quel produit on parle (un client peu - avoir plusieurs produits)
3) Place dans le mail :
- Nom & prénom
- Numéro de police
- Type de produit

Les tables et champs :
Clients.Référence
Clients.Nom
Clients.Prénom
Produits.Numéro de police
Produits.Type de produit

Est-ce que c'est possible ?

Bien cordialement

[Domi2]

Bonjour,

Regarde si cette récente discussion peut t'aider.

Domi2

[FreeAccess]

Bonjour,

A première vue, je dirais que la chose est réalisable.....

Si Thunderbird est ton client de messagerie par défaut . . . . . Recherche d'une solution possible dans les anciens posts

- mail access avec thunderbird
- Ouvrir Thunderbird et créer un nouvel email
- mailing à partir d'access

...à voir

[Gregk84]

J'ai regardé, je pense pouvoir faire ce que je désire...

Par contre 2 questions :

1) Comment faire un bouton dans le formulaire et ou dois-je lui appliquer le code :

Code :

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

1
2
3
4
5
6
7
Dim strMsg As String
 
strMsg = "Bonjour,%0A%0a"
strMsg = strMsg & "Bienvenue sur l'abonnement carte.%0A%0a"
strMsg = strMsg & "Bonne journée."
 
Application.FollowHyperlink "mailto:" & Me.[Email] & "?cc=copie1@gmail.com;copie2@gmail.com &subject=Test &body=" & strMsg

2) Comment utiliser les champs remplis du formulaire ? Pour rappel, j'aimerais quand je clique sur le bouton envoyer un mail présent dans le formulaire que access utilise le nom, prénom et ref du client dans le sujet.

[FreeAccess]

...utiliser les champs remplis du formulaire ?. . . que access utilise le nom, prénom et ref du client dans le sujet

Tu procèdes de la même façon que pour l'adresse mail...

Code :

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

Application.FollowHyperlink "mailto:" & Me.[Email]

.... ici Me.Email correspond au nom du contrôle du formulaire contenant l'adresse mail.

.... pour utiliser plusieurs valeurs dans le sujet, il te faut concaténer (assembler) les différents champs que tu souhaites....
.... tu insères le code sur l'événement "Sur clic" de ton contrôle bouton [cmdEnvoiMail]

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdEnvoiMail_Click()
Dim strMsg As String
strMsg = "Bonjour,%0A%0a"
strMsg = strMsg & "Bienvenue sur l'abonnement carte.%0A%0a"
strMsg = strMsg & "Bonne journée."
 
Application.FollowHyperlink "mailto:" & Me.txtMail & "?cc=copie1@gmail.com;copie2@gmail.com &subject=" & "[" & Me.txtReference & "] " & Me.txtNom & " " & Me.txtPrénom & "&body=" & strMsg
End Sub

... a adapter à ton application

[Gregk84]

Merci cela m'a bien aidé. J'ai adapté et j'y suis arriver plus ou moins...

2 Questions :

1) Dans Thunderbird, j'ai plusieurs boites d’envois, comment forcer l'envoie avec une boite précise ?

2) Comment personnaliser la mise en page et mettre une ligne en gras ?

[Domi2]

Bonsoir,

Pour ta deuxième question, je n'ai jamais trouvé . Ce n'est peut-être pas possible sans passer par un corps de texte en HTML. Et encore, le risque c'est que tu aies une demande de confirmation, ce qui casserait l'automatisme.

Pour ta première question, j'imagine que c'est possible (peut-être) en utilisant des SendKeys.

Je me souviens d'avoir vu un code assez complet sur le sujet, essaie de faire des recherches sur Google style "SendKeys VBA Thunderbird", tu devrais bien finir par trouver quelque chose.

Domi2