XL 2019 mail outlook depuis un Userform

youpi457032 · 24 Mai 2022

Bonjour,
Sur mon Userform "Formulaire_élève_Consultation" j'ai créé un bouton mail. (nommer "Bouton_mail")
L'idée c'est de contacter l'élève depuis sa fiche (au départ de l'userform par mail (avec Outlook 2019)
J'ai trois ComboBox qui contiennent ces mails nommés T7, T8, T9
il faudrait que la macro reprenne les mails depuis les ComboBox T7, T8 et T9, les expédie dans le champ "to" d'outlook ( sans doublon) .
quelqu'un saurait-il écrire cela ???
je joins un fichier image de mon Userform
Merci beaucoup !

Lolote83 · 24 Mai 2022

Bonjour,
Sans fichier joint, voici un petit code qu'il faudra donc adapter

Attention, penser à activer la référence VBA Microsoft Outlook 16.0 Object Library

VB:

Sub EnvoiMail()
    
    '--------------------------------------------------------------
    '         Reference VBA = Microsoft Outlook 16.0 Object Library
    '--------------------------------------------------------------
    
    
    '-------------------------------------------------------------- Déclaration des variables
    Dim LeMail As Object
    Dim xTabFich()
    
    '-------------------------------------------------------------- Début
    xSujet = "Inscrire ici le sujet du mail"
    xTo = Me.T7 & "," & Me.T8 & "," & Me.T9             'C'est ICI que l'on récupère les combos
    xCc = ""
    xBody "Ici le corps du mail"
    
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set LeMail = OutlookApp.CreateItem(0)
    With LeMail
        .To = xTo
        .CC = xCc
        .Subject = xSujet
        .Body = xBody
        .Display                'Pour afficher avant envoi
        '.Send                   'Pour envoi direct
    End With
    ' Effacer les variables objet pour libérer la mémoire
    Set LeMail = Nothing
End Sub

@+ Lolote83

youpi457032 · 24 Mai 2022

Lolote83 à dit:

Bonjour,
Sans fichier joint, voici un petit code qu'il faudra donc adapter

Attention, penser à activer la référence VBA Microsoft Outlook 16.0 Object Library

VB:

Sub EnvoiMail()
   
    '--------------------------------------------------------------
    '         Reference VBA = Microsoft Outlook 16.0 Object Library
    '--------------------------------------------------------------
   
   
    '-------------------------------------------------------------- Déclaration des variables
    Dim LeMail As Object
    Dim xTabFich()
   
    '-------------------------------------------------------------- Début
    xSujet = "Inscrire ici le sujet du mail"
    xTo = Me.T7 & "," & Me.T8 & "," & Me.T9             'C'est ICI que l'on récupère les combos
    xCc = ""
    xBody "Ici le corps du mail"
   
   
    Set OutlookApp = CreateObject("Outlook.Application")
    Set LeMail = OutlookApp.CreateItem(0)
    With LeMail
        .To = xTo
        .CC = xCc
        .Subject = xSujet
        .Body = xBody
        .Display                'Pour afficher avant envoi
        '.Send                   'Pour envoi direct
    End With
    ' Effacer les variables objet pour libérer la mémoire
    Set LeMail = Nothing
End Sub

@+ Lolote83

Merci ! ca c'est du rapide !!! impressionnant...
Mais que dois-je adapter ???,
"Le mail" ?? est à remplacer par le nom de mon userform ?

Hasco · 24 Mai 2022

Bonjour,

Si vous créez l'application outlook avec CreateObject, il n'est pas necessaire d'activer les références à la bibliothèque "Microsoft Outlook xx.x Object Library" qui dépend de la version de l'utilisateur.

Cordialement

Lolote83 · 24 Mai 2022

Re bonjour,
Merci @Hasco pour cette précision.
Pour @youpi457032 , il faut associer le code donné au bouton du formulaire qui lance le mail.
C'est juste pour la syntaxe de la récupération des comboboxs qu'il faudra voir
@+ Lolote83

youpi457032 · 24 Mai 2022

ca ne fonctionne pas....
il me met variable non définie....

Hasco · 24 Mai 2022

Re,

Voici une version avec toutes les variables déclarées et qui fonctionne chez moi.
J'ai rajouté une ligne de nettoyage de l'objet application en bas.

VB:

Sub EnvoiMail()
 
    '-------------------------------------------------------------- Déclaration des variables
    Dim OutlookApp As Object, LeMail As Object
    Dim xTabFich()
    Dim xSujet As String, xTo As String, xCc As String, xBody As String
  
    '-------------------------------------------------------------- Début
    xSujet = "Inscrire ici le sujet du mail"
    xTo = Me.T7 & "," & Me.T8 & "," & Me.T9             'C'est ICI que l'on récupère les combos
    xCc = ""
    xBody = "Ici le corps du mail"
  
  
    Set OutlookApp = CreateObject("Outlook.Application")
    Set LeMail = OutlookApp.CreateItem(0)
    With LeMail
        .To = xTo
        .CC = xCc
        .Subject = xSujet
        .Body = xBody
        .Display                'Pour afficher avant envoi
        '.Send                   'Pour envoi direct
    End With
    ' Effacer les variables objet pour libérer la mémoire
    Set LeMail = Nothing
    Set OutlookApp = Nothing
End Sub

cordialement

youpi457032 · 24 Mai 2022

Hasco à dit:

Re,

Voici une version avec toutes les variables déclarées et qui fonctionne chez moi.
J'ai rajouté une ligne de nettoyage de l'objet application en bas.

VB:

Sub EnvoiMail()
 
    '-------------------------------------------------------------- Déclaration des variables
    Dim OutlookApp As Object, LeMail As Object
    Dim xTabFich()
    Dim xSujet As String, xTo As String, xCc As String, xBody As String
 
    '-------------------------------------------------------------- Début
    xSujet = "Inscrire ici le sujet du mail"
    xTo = Me.T7 & "," & Me.T8 & "," & Me.T9             'C'est ICI que l'on récupère les combos
    xCc = ""
    xBody = "Ici le corps du mail"
 
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set LeMail = OutlookApp.CreateItem(0)
    With LeMail
        .To = xTo
        .CC = xCc
        .Subject = xSujet
        .Body = xBody
        .Display                'Pour afficher avant envoi
        '.Send                   'Pour envoi direct
    End With
    ' Effacer les variables objet pour libérer la mémoire
    Set LeMail = Nothing
    Set OutlookApp = Nothing
End Sub

cordialement

Ah trop bien ca marche Nickel !
Juste un petit beug....
si ma combobox est vide ... elle me renvoie "Vide" en champ adresse mail dans outlook...
et Outlook ne considère pas le mot "vide" comme étant une adresse mail
Y a ti un moyen d'éviter qu'un combobox renvioe le mot" vide" si le champ est null ???
Ou alors effacer le mot vide à chaque fois qu'il est rencontré ?

Hasco · 24 Mai 2022

Par

youpi457032 à dit:
si ma combobox est vide

Vous voulez dire qu'elle ne contient aucun item ou qu'aucun item n'a été choisit ?

Dans le premier cas : If Combobox.ListCount > 0 then ..... ' Si la combobox contient des items

Dans le deuxième cas : if Combobox.ListIndex >-1 ' Si un item a été choisit dans la liste.

Cordialement

youpi457032 · 24 Mai 2022

Merci
je l'integre comment dans la macro ?

Hasco · 24 Mai 2022

Re,

Vous avez essayé d'une manière ou d'une autre ?
Vous ne répondez même pas au question qu'on vous pose ?

Deadpool_CC · 24 Mai 2022

Bonjour,
En parcourant le fil du post ... suggestion : dans ton formulaire, tu peux aussi rendre inactif les boutons d'actions si aucun élève n'est sélectionné ...
Et adapte le code au cas ou les emails ne serait pas tous renseignés (voir aucun).

youpi457032 · 24 Mai 2022

oups ! pas vu la question !
Alors c'est pire que ca...
si ma cellule auquel fait reference ma combox est vide...
ma combobox ecrit "vide"...
du coup dans le champ mail elle recopie " vide" ...
moi je voudrai au départ que la combobox ne renvoie pas la valeur "vide" si la cellule à laquelle elle fait reference est vide....

Hasco · 24 Mai 2022

Je passe mon chemin...

youpi457032 · 24 Mai 2022

existe t-il un parametrage quelconque dans les propriétés d'une combobox pour qu'elle ne renvoie aunune valeur si la cellule à laquelle elle fait référence est vide ?
Ce serait plus ça au départ... au plus logique....

sinon integrer un bout de code dans la macro mail :
du style si T7, ou T8, ou T9 = "vide" ne par envoyer cette valeur "vide" et renvoyer les autres ...

XL 2019 mail outlook depuis un Userform

youpi457032

XLDnaute Occasionnel

Pièces jointes

Lolote83

XLDnaute Barbatruc

youpi457032

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

youpi457032

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

youpi457032

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

youpi457032

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

youpi457032

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

youpi457032

XLDnaute Occasionnel

Discussions similaires