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

Envoi Mail fichier Word


Sujet :

VBA Word

  1. #1
    Membre confirmé
    Avatar de fabou3377
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2006
    Messages : 182
    Par défaut Envoi Mail fichier Word
    Bonjour,

    j'ai un fichier .dot (modèle word) que l'utilisateur charge. Dans ce fichier il y a un bouton qui contient du code pour sauver le document. J'aimerais ensuite résupérer les informations de l'utilisateur dans Active Directory afin d'envoyer ce fichier par mail.

    J'ai trouvé ce code, mais apparement c'est du .net... Est-ce qu'il y a une solution d'intéger celui-ci dans du vba, ou d'appeler ce code via vba...

    Je suis débutant merci pour votre aide...

    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
    58
    59
    60
    61
    62
    63
    64
    65
    66
     
    Private function ObtenirMail(byval login as string, byval motdepasse as string, byval groupe as string) as string
     try
       Dim LDAP_Chemin As String = "LDAP://ou=<mon OU>,dc=<mon DC>,dc=<mon DC>"
       ' Exemple  Dim LDAP_Chemin As String = "LDAP://ou=senyniumcorp,dc=senyniumcorp,dc=lan"
     
       ' On renseigne les informations de recherche
       Dim chemin As New DirectoryServices.DirectoryEntry
       chemin.AuthenticationType = DirectoryServices.AuthenticationTypes.Secure
       chemin.Username = login
       chemin.Password = motdepasse
       chemin.Path = LDAP_Chemin
     
       'Récuprération des informations Active Directory
       Dim rech As New System.DirectoryServices.DirectorySearcher(chemin)
       Dim result As System.DirectoryServices.SearchResult
       Dim mail As String = ""
     
       'Lister les utilisateurs
       rech.Filter = ("(objectClass=user)")
       For Each result In rech.FindAll()
         'S'assurer de l'existence du mail pour eviter
         'les comptes systemes  
          If (result.GetDirectoryEntry().Properties("mail").Value <> "") Then
             For i = 0 To result.GetDirectoryEntry().Properties("memberof").Count - 1
                tab1 = Split(result.GetDirectoryEntry().Properties("memberof").Item(i), ",")
                tab2 = Split(tab1(0), "=")
         'Vérification de l'appartenance au groupe  
                If (tab2(1) = groupe) Then
     	       mail = mail & result.GetDirectoryEntry().Properties("mail").Value
                   if (i < (result.GetDirectoryEntry().Properties("memberof").Count - 1) then
                      mail = mail & ";"
                   end if  
                end if
             next
          end if 
       next
       ObtenirMail = mail
      Catch ex As Exception
      End Try
    end function
     
     
    Private Sub EnvoiMail(byval login as string, byval motdepasse as string, byval groupe as string, ByVal De as string, ByVal sujet as string, ByVal Message as string)
       Dim m As New MailMessage
       Dim SMTP_SERV = "server"
       Try
           m.From = De
           m.Subject = sujet
           SmtpMail.SmtpServer = SMTP_SERV
         ' Au format mail  m.BodyFormat = MailFormat.Html
     
           Dim Adresses as string = ""
           Adresses = ObtenirMail(login, motdepasse, groupe)
           if (trim(Adresse) <> "") then
              m.Body = Message
              m.To = Adresses
              SmtpMail.Send(m)
           end if 
        Catch ex As Exception
        End Try
    End Sub
     
    'Exemple d'utilisation
     
    EnvoiMail("monlogin", "Monmotdepasse", "GPE_Administrateurs", "MonMail", "Salut", "Juste un bonjour")

  2. #2
    Membre émérite
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    730
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 730
    Par défaut
    Hum,

    effectivement c'est du .net, tu veux l'adapter en VBA et ici, c'est du VB6... c'est pas gagné...

    Récupérer les infos de l'utilisateur pour envoyer un email ? Si tu es débutant, je ne suis pas sûr que ce soit le plus facile. Quelles sont les contraintes de ton projet ? Client de messagerie ? etc.

  3. #3
    Membre confirmé
    Avatar de fabou3377
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2006
    Messages : 182
    Par défaut
    Merci pour ta réponse le but est le suivant:

    J'ai un formulaire Word avec des signets et un bouton envoyer. Lorsque l'utilisateur clique sur le bouton, on récupère son adresse e-mail dans l'Active Directory, on enregistre le document, et on envoie ce document à une adresse mail identique pour tous les cas.

Discussions similaires

  1. [WD-2007] Raccourci Clavier Ctrl+E pour declencher un envoi mail sur Word
    Par Francoislegros dans le forum VBA Word
    Réponses: 2
    Dernier message: 30/10/2014, 23h17
  2. envoi mail fichier excel en VBA
    Par natie_49 dans le forum Excel
    Réponses: 1
    Dernier message: 09/07/2007, 19h56
  3. envoi mail avec fichier joint
    Par dietrich dans le forum API standards et tierces
    Réponses: 14
    Dernier message: 28/02/2006, 14h42
  4. Envoi Mail + fichier joint
    Par mikovitch1 dans le forum C++Builder
    Réponses: 4
    Dernier message: 05/10/2005, 11h02
  5. envoi mail avec piece jointe fichier excel
    Par flogreg dans le forum ASP
    Réponses: 12
    Dernier message: 20/12/2004, 16h02

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