Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre à l'essai
    Créer une invitation a partir des données d'un formulaire
    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.

  2. #2
    Membre émérite
    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.

  3. #3
    Membre émérite
    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.

###raw>template_hook.ano_emploi###