IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

VBA Access Discussion :

Préparation E-mail via Access


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Avril 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 2
    Par défaut Préparation E-mail via Access
    Bonjour,
    J'ai cherché afin de dénicher les lignes de code me permettant de préparer un courriel déclanché par Access sans l'envoyer avec Outlook.

    Pour être plus claire, à l'aide d'un déclencheur et de variables provenant d'access, je veux que la fonction prépare un courriel (objet, corp de texte, pièce jointe), ouvre la fenêtre "Nouveau message" pour ainsi laissé à l'utilisateur le loisirs de sélectionner ses contacts auxquelles il veut envoyer le courriel via l'interface Outlook pour ensuite l'envoyer

    Voici le code que j'ai présentement, dans un module Access, qui prépare le courriel et qui l'envoie à un contact spécifique sans ouvrir la fenêtre "Nouveau message":

    sub preparer_courriel()
    Dim Recipient As String
    Dim Subject As String
    Dim Body As String
    Dim Attach As Variant
    ' --------------------------
    Dim I As Integer
    Dim oEmail As Outlook.MailItem
    Dim appOutLook As Outlook.Application

    ' créer un nouvel item mail

    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)

    ' les paramètres

    Recipient = "xxxxx@xxxx.com"
    Subject = "Test"
    Body = "Test test test"
    Attach = "C:\xxxxxxx\xxxxx\xxxxxx.xls"

    oEmail.To = Recipient
    oEmail.Subject = Subject
    oEmail.Body = Body

    If Not IsMissing(Attach) Then

    If TypeName(Attach) = "String" Then

    ' s'il y a des pièces jointes
    oEmail.Attachments.Add Attach

    Else

    For I = 0 To UBound(Attach) - 1
    oEmail.Attachments.Add Attach(I)

    Next

    End If

    End If

    ' envoie le message
    oEmail.Send

    ' détruit les références aux objets
    Set oEmail = Nothing

    Set appOutLook = Nothing

    End Sub



    Merci de votre aide !

    SimR

  2. #2
    Membre confirmé
    Homme Profil pro
    Responsable de service informatique
    Inscrit en
    Septembre 2006
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable de service informatique

    Informations forums :
    Inscription : Septembre 2006
    Messages : 63
    Par défaut
    Bonjour

    avant le code d'envoie le message
    oEmail.Send

    il faut faire oEMail.Display et supprimer oEmail.Send ainsi Outlook reste ouvert

    Bon courage

    prady92

  3. #3
    Candidat au Club
    Inscrit en
    Avril 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 2
    Par défaut
    Merci ! C'est réglé !

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

Discussions similaires

  1. Changer d'expéditeur pour un mailing via access et outlook
    Par AlexFred dans le forum VBA Access
    Réponses: 1
    Dernier message: 02/11/2012, 10h50
  2. envoie e-mail via access
    Par gremy63 dans le forum VBA Access
    Réponses: 12
    Dernier message: 26/06/2008, 10h20
  3. Envoi Mail via Access
    Par p935754 dans le forum VBA Access
    Réponses: 2
    Dernier message: 25/08/2007, 11h09
  4. Envoie de mail via access, VB et CDO
    Par dragonfly dans le forum Access
    Réponses: 4
    Dernier message: 09/01/2007, 14h58
  5. Confirmation d'envoi de mail Via Access
    Par Hamdi dans le forum Access
    Réponses: 2
    Dernier message: 01/02/2006, 13h14

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