Discussion :

[zeuch]

Bonjour à tous,

Voilà, j'essaie de créer un bouton sur un formulaire d'une base Access qui me permettrait de générer un mail dans Outlook avec 2 destinataires.
Les 2 adresses mails sont stockées dans 2 tables différentes de la base Access.

Je pense qu’il est possible de faire cela en VB ou via une macro mais je ne suis pas un spécialiste…

Merci de votre aide !

[SeaWolf601]

Concaténer les deux champs séparé par un point virgule.
(je le dis de mémoire sans vérification)

ce qui devrait donner grosso modo :

Code :

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

= ([Table1].[AdresseMail] & "; " & [Table2].[AdresseMail])

[zeuch]

Bonjour et merci pour cette réponse.
J'ai refait quelques essais mais je galère (je n'ai pas beaucoup de compétence VB...).

Auriez vous un exemple simple pour permettre la génération d'un mail avec deux expéditeurs? J'ai compris comment récupérer les adresses mails mais je n'arrive pas trouver le code pour générer le mail dans Outlook.

D'avance merci pour votre aide.

Zeuch

[Robert1957]

Bonjour zeuch,
Voici un exemple de code:

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
    ' Déclarer les variables
    Dim outobj As Outlook.Application
    Dim outappt As Outlook.MailItem
    Set outobj = CreateObject("outlook.application")
    Set outappt = outobj.CreateItem(olMailItem)
    With outappt
        .To = "Destinataire1;Destinataire2"
        .Body = "Le message"
        .HTMLBody = "Le message au format HTML"
        .Subject = "Le sujet du email"
        .Importance = olImportanceHigh
        .Display 'Afficher avant d'envoyer
    End With
   ' Libérez la variable objet Outlook.
   Set outobj = Nothing

Avec l'aide d'Access tu vas pouvoir voir toutes les autres possibilités.

Bonne journée

[zeuch]

Un grand merci à toi Robert. Je vais tester.

[zeuch]

ça marche impeccable. Il me manquait juste une référence dans VB.

J'ai modifié mon formulaire en ajoutant deux listes déroulantes permettant de sélectionner l'émail 1 et l'émail 2.

Du coup ça donne ça sur le VB:

Code :

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

1
2
3
.To =
[liste1].[Column](2) & ";" &
[liste2].[Column](2)

En tout cas merci pour votre aide.

Zeuch

[Robert1957]

Bonjour zeuch,

De rien. Si tu as le gout de te casser les méninges un peu plus tu pourrais avoir juste une liste avec "Sélection multiple" = étendu, tu parcours la liste et ainsi tu peux sélectionner un, deux ou plusieurs destinataires.

Bonne journée