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 Discussion :

Ajouter dans mon code envoi de mail un expediteur "de


Sujet :

VBA

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    CDP
    Inscrit en
    Novembre 2011
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : CDP
    Secteur : Service public

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1
    Par défaut Ajouter dans mon code envoi de mail un expediteur "de
    Bonjour à tous,
    je souhaite envoyer des mails automatiques à partir d'une BAL generique et donc ajouter un expediteur.
    Pourriez vous svp me dire comment puis je ajouter dans mon code VBA access 2010 l'expediteur "de" pour que les mails parte avec "De : Noe" par exemple.

    voici mon code d'envoi de mail :

    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
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    Function EnvoiRappel()
    Dim Sql As String
        Dim Commandes As String
     
        If DCount("*", "Tt_MailInfo_CDP") = 0 Then Exit Function
     
        Mail_object = "Dossiers 9IPNET en attente d’un retour d’information"
        Mail_intro = "[Ceci est un message de rappel, généré automatiquement]"
        Mail_intro = Mail_intro & vbCrLf
        Mail_intro = Mail_intro & vbCrLf
        Mail_intro = Mail_intro & "Bonjour,"
        Mail_intro = Mail_intro & vbCrLf & vbCrLf
        Mail_intro = Mail_intro & "La cellule NOE t'a sollicité pour des informations relatives aux commandes suivantes, actuellement en rejet de production :"
     
        Mail_conclu = "Nous restons à ta disposition pour traiter cette réinjection, une fois les informations requises connues."
        Mail_conclu = Mail_conclu & vbCrLf & vbCrLf
        Mail_conclu = Mail_conclu & "Merci de votre compréhension."
        Mail_conclu = Mail_conclu & vbCrLf & vbCrLf
        Mail_conclu = Mail_conclu & "Team NOE"
     
     
        Sql = "Select distinct Adresse_Mail from Tt_MailInfo_CDP;"
        Set CDP = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
        CDP.MoveFirst
        With CDP
            Do While Not CDP.EOF
            Commandes = ""
     
            Sql = "Select * from Tt_MailInfo_CDP where Adresse_Mail =" & Chr(34) & CDP!Adresse_Mail & Chr(34) & ";"
            Set mail = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
            mail.MoveFirst
            With mail
                Do While Not mail.EOF
                Commandes = Commandes & vbCrLf & vbCrLf & Chr(9) & "-" & mail![RefLdcom] & "-" & mail![MASTER_ID] & "-" & mail![Client] & "-" & mail![Noms_Prenoms]
     
                'MAJ de la date
                Sql = "UPDATE Tt_Reporting_JJ SET Tt_Reporting_JJ.Date_Mail_CDP = Now(), Tt_Reporting_JJ.Commentaires_Noe = " & Chr(34) & "Prise en charge par le CDP" & Chr(34) & ", Tt_Reporting_JJ.ATTCDP = True WHERE Tt_Reporting_JJ.RefLdcom= " & Chr(34) & mail!RefLdcom & Chr(34) & ";"
                DoCmd.RunSQL Sql
                mail.MoveNext
                Loop
            End With
            mail.Close
     
    Envoimail:
     
            Sql = "select superieur from tb_cdp where adresse_mail like " & Chr(34) & CDP!Adresse_Mail & Chr(34) & " ; "
            Set sup = CurrentDb.OpenRecordset(Sql, dbOpenDynaset)
            'Mail_Superieur = sup!Superieur'
            Mail_noe = "gen-01361@neufcegetel.fr"
            Mail_copy = Mail_noe & ";"
            Mail_Corps = Mail_intro & Commandes & vbCrLf & vbCrLf & vbCrLf & Mail_conclu
            'DoCmd.SendObject , acSendNoObject, , "madly.fidele@sfr.com", , , Mail_object, Mail_Corps, False'
            DoCmd.SendObject , acSendNoObject, , CDP!Adresse_Mail, Mail_copy, , Mail_object, Mail_Corps, False
        CDP.MoveNext
        Loop
    End With
    End Function
    Merci à tous

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 086
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 086
    Par défaut
    Salut,

    Pas de cette façon.

    il faut passer par outlook ou par cdo.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

Discussions similaires

  1. Ajout de SDL dans mon code
    Par Bourg dans le forum SDL
    Réponses: 1
    Dernier message: 25/03/2015, 08h54
  2. [XL-2007] Erreur sur mon code envoi mail avec fichier joint
    Par capi81 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/08/2014, 18h08
  3. Soucis dans ce Code Envoi Mail via Outlook
    Par vaucluseimmo dans le forum VBA Word
    Réponses: 3
    Dernier message: 11/02/2010, 14h21
  4. Réponses: 1
    Dernier message: 21/02/2005, 12h40
  5. [langage] algo de bissection dans mon code
    Par killy dans le forum Langage
    Réponses: 5
    Dernier message: 19/01/2004, 18h35

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