Discussion :

[squadracorsa]

Bonjour à toutes et tous,

Je souhaiterai pouvoir envoyer une invitation mail en fonction d'un enregistrement présent dans un formulaire.
Dans la base jointe, il y a le formulaire dossier. Sur ce formulaire, il y a un onglet "RDV". Je voudrai créer un bouton qui envoie une invitation via outlook, pour le contact indiqué pour le dossier ?
J'ai trouvé des codes mais je n'arrive pas a les adapter à mon cas.

Merci à toutes et tous pour votre aide.

[EricDgn]

Bonjour,

Une réponse bien documentée se trouve dans ce tutoriel:
Réaliser un système d'envoi de documents individuels avec Access

Cordialement.

[EricDgn]

Bonjour,

Une proposition, non testée (pas d'Outlook sur mon pc), qui suppose que les adresses mail se trouve en 3e colonne de déroulants présentant les investisseurs 1 et 2:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub btnEnvoyer_Click()
    Dim oMessage As Object, sAdresses As String, sObjet As String, sCorp As String
    sAdresses = ""
    If "" & Me.Parent.Investisseur1.Column(2) <> "" Then
        sAdresses = Me.Parent.Investisseur1.Column(2)
        If "" & Me.Parent.Investisseur2.Column(2) <> "" Then
            sadresse = sadress & "; " & Me.Parent.Investisseur2.Column(2)
        End If
    End If
    Debug.Print sAdresses
    If sAdresses = "" Then
        MsgBox "Pas d'adresse mail", , "Anomalie"
        Exit Sub
    End If
    sObjet = Me.Objet
    sCorp = Me.Notes
    '--- partie envoi via Outlook
    Dim oOutlook As Outlook.Application, oMailItem As Outlook.MailItem
    ' teste si Outlook est ouvert, si pas ouvert le lance
    If Not IsOutLookRunning() Then
        Dim oShell As Object
        Set oShell = CreateObject("WScript.Shell")
        oShell.Run "outlook"
        Set oShell = Nothing
    End If
    ' utilise Outlook
    Set oOutlook = CreateObject("Outlook.Application")
    Set oMailItem = oOutlook.CreateItem(0)
    With oMailItem
        .To = sAdresses             ' adresse mail du destinataire
        .Subject = sObjet ' objet du message
        'Corps du message
        .BodyFormat = 3         'olFormatRichText = format Texte enrichi
        .Body = sCorp
        .Display   ' affiche l'email (si vous ne voulez pas l'afficher, mettre cette ligne en commentaire)
        .Save      ' sauvegarde l'email avant l'envoi (pour ne pas le sauvegarder, mettre cette ligne en commentaire)
        .Send      ' envoie l'email (si vous voulez seulement préparer l'email et l'envoyer manuellement, mettre cette ligne en commentaire)
    End With
    Set oMailItem = Nothing
End Sub

A tester dans la bdd attachée, un peu différente de la votre.
Bonne continuation.