Discussion: Envoi mail via hyperlink [AC-2016]

  1. #1
    Membre à l'essai
    Homme Profil pro
    Finances
    Inscrit en
    février 2017
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Belgique

    Informations professionnelles :
    Activité : Finances
    Secteur : Conseil

    Informations forums :
    Inscription : février 2017
    Messages : 35
    Points : 19
    Points
    19

    Par défaut Envoi mail via hyperlink

    Bonjour, étant débutant et complétement perdu dans cette programmation, j'aimerai de ma BDD pouvoir envoyé un mail en cliquant sur le liens, j'ai ce code qui fonctionne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub EMail_Click()
    'permet d'envoyer un mail simplement, avec du texte brut
         Application.FollowHyperlink "mailto:" & [EMail]
     
    End Sub
    Par contre j'ai besoin d'aide car, j'aimerai que l'expéditeur soit une autre adresse ex : toto@-----.be et que le sujet du message reprenne dans une table nommée police le numéro inscrit dans le champs "Police".

    d'avance un grand merci de votre aide et bonne journée.

    Alain

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 321
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 321
    Points : 27 152
    Points
    27 152

    Par défaut

    Salut,

    un exemple pour répondre à quelques unes de tes questions :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    "mailto:toto@tata.com?subject=Ton Sujet qui dechire&body=Ton corps de mail" & _
    "&cc=tutu@tata.com" & _
    "&bcc=titi@tata.com"

    Maintenant si tu veux aller plus loin sur le from par exemple, je te recommande de piloter outlook ou de passer par un CDO.
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre à l'essai
    Homme Profil pro
    Finances
    Inscrit en
    février 2017
    Messages
    35
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Belgique

    Informations professionnelles :
    Activité : Finances
    Secteur : Conseil

    Informations forums :
    Inscription : février 2017
    Messages : 35
    Points : 19
    Points
    19

    Par défaut VBA E-mail outlook 2016

    Bonjour et merci de votre aide, ayant un parcouru les tutto, j'ai repris un code que j'ai un peu bidouiller, mais étant débutant, il y a des erreurs, pouvez-vous m'aider à comprendre le comment. Ci-dessous le 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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
     'Ajouter les références suivantes :
    'Microsoft Outlook
    'Microsoft DAO
    Dim oApp As Outlook.Application
    Dim oMail As Outlook.MailItem
    Dim oDB As DAO.Database
    Dim strContenu As String
    Dim oRst0 As DAO.Recordset
    Dim strTo As String
    Dim sqlMail As String
     
     
    Set oDB = CurrentDb
    Set oApp = CreateObject("Outlook.Application")
    'Crée un nouveau message
    sqlMail = "SELECT  * FROM MessagesCli;"
    Set oMail = oApp.CreateItem(olMailItem)
    oMail.To = oRst0.Fields("Mail")
    oMail.Body = "Client :" & oRst0.Fields("txtcorps")
    oMail.Subject = oRst0.Fields("strObjet") & " du " & oRst0.Fields("dtCrea")
     
    'Envoi le mail
    oMail.Display
    'ferme le curseur
    oRst0.Close
    Set oRst0 = Nothing
    Set oDB = Nothing
    Set oApp = Nothing
    L'erreur est : code 91 - Variable objet ou variable de bloc with non définie.

    Encore Merci. Alain

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    12 321
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 12 321
    Points : 27 152
    Points
    27 152

    Par défaut

    Hello,

    il te manque la ligne qui permet de recuperer les lignes de ta requete dans le recordset

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    oRst0 =CurrentDb.OpenRecordset(sqlMail)
    Do Until oRst0.EOF
    oMail.To = oRst0.Fields("Mail")
    '
    '
    oRst0.MoveNext
    Loop
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Envoi mail via une liste de contact
    Par Djohn dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 23/10/2007, 16h55
  2. Envoi Mail via Access
    Par p935754 dans le forum VBA Access
    Réponses: 2
    Dernier message: 25/08/2007, 12h09
  3. Envoie Mail via Nescape et thunderbird
    Par foxer98 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/07/2007, 14h47
  4. Envoi mail via telnet
    Par Bourriquette dans le forum Programmation et administration système
    Réponses: 2
    Dernier message: 14/03/2007, 11h03
  5. procedure envoie mail via OUTLOOK
    Par laurent1 dans le forum Oracle
    Réponses: 13
    Dernier message: 22/10/2006, 11h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo