Autres Ouverture Outlook en VBA

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion FOUQUET Yves
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,

Quelqu'un peut me dire pourquoi dans la procédure ci dessous j'ouvre la boite d'envoi d'Outlook seulement et pas Outlook en entier ?

Merci de votre aide.
Yves

VB: 
Sub ControleSiOutlookOuvert()   '---- ouverture de OUTLOOK
    Dim Appli As Object
    Dim SessionOutlook, myOlApp
    Const Chemin As String = "C:\Program Files\Microsoft Office\office11\OUTLOOK.exe"   '---> tu adaptes ce chemin si c'est nécessaire
 
    On Error Resume Next
    Set Appli = GetObject(, "Outlook.Application")
 
    'Tester si l'application est ouverte ou non
    If Appli Is Nothing Then
            MsgBox "Outlook est fermé"   '---> Donc ouvre moi une session
            SessionOutlook = Shell(Chemin, 1)
    End If
End Sub
'=======================================================

Private Sub CommandButton2_Click()   ' ceci correspond au bouton "Envoyer le message" qui ouvre et compléte Outlook

NomFichierComplet = UserForm1.chemin2 & "\Bonjour XXXX.jpg"
EmbedPicture NomFichierComplet    '"D:\Gestion AHI\Bonjour XXXX.jpg"
End Sub
'==============================================

Sub EmbedPicture(PathName As String)
  Dim MyPicture As String
  Dim img1 As String
  Dim Body As Variant
 
  TextBox11 = " Anniversaire en cours d'envoi via OUTLOOK"
  Repaint
  img1 = ""
  Workbooks("donnees.xlsm").Activate
  Worksheets("f_anniv").Select
  Set Ws = Sheets("f_anniv")
  ligne = Me.ComboBox1.ListIndex + 1  'se positionne sur l'index (ligne) du nom combobox
' CHEMIN ======
  img1 = NomFichierComplet    '"D:\Gestion AHI V2\BONJOUR XXXX.jpg"
  MyPicture = ""
  MyPicture = Mid(PathName, InStrRev(PathName, Application.PathSeparator) + 1)
  
   With CreateObject("Outlook.Application").CreateItem(0)
    .HTMLBody = ""
    .BodyFormat = olFormatHTML
    .HTMLBody = "<html><p>" & Body & "</p></html>"
    .Body = "Cher(e) ami(e) bonjour." & vbCr & "En cette journée particulière, ci joint un petit mot de notre président Christian DELAGRANGE." & vbCr & "Nous te souhaitons un joyeux anniversaire." & vbCr & "Merci pour votre aide toujours précieuse." & vbCr & "Bonne journée." & vbCr & "Le secrétariat d'AHI."
    .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img1 & "'>" '-- dans le corps du message ---
    '.Attachments.Add img1  '--- si on veut mettre l'image en piéce jointe ----
    .To = Range("C" & ligne).Value
    .Subject = " Bon anniversaire"
    .Display
    '.Send    '--- envoi direct

    End With
TextBox11 = " "
Repaint
End Sub
 
Trier par date Trier par votes
parce qu'apparemment tu crées un message.
pour ouvrir seule la première procédure suffit un test fait chez moi avec thunderbird ( eh oui je n'ai pas outlook)
VB: 
Sub ControleSiOutlookOuvert()   '---- ouverture de OUTLOOK
    Dim Appli As Object
    Dim SessionOutlook, myOlApp
    Const Chemin As String = "E:\instalation thunderbird\thunderbird.exe"   '---> tu adaptes ce chemin si c'est nécessaire
 
    On Error Resume Next
    Set Appli = GetObject(, "Outlook.Application")
 
    'Tester si l'application est ouverte ou non
    If Appli Is Nothing Then
            MsgBox "Outlook est fermé"   '---> Donc ouvre moi une session
            SessionOutlook = Shell(Chemin, 1)
    End If
End Sub
 
Vote positif 0 Vote négatif
1588789709373.png


Quand j'intégre la procédure "ouverture outlook, Voilà l'erreur que je retrouve sur la ligne: Set Appli = GetObject(, "Outlook.Application")
Grrrrrrrrrrr!



VB: 
Sub EmbedPicture(PathName As String)
  Dim MyPicture As String
  Dim img1 As String
  Dim Body As Variant
 
  Dim Appli As Object
    Dim SessionOutlook, myOlApp
    Const Chemin As String = "C:\Programme (x86)\Microsoft Office\Office2012\OUTLOOK.exe"   '---> tu adaptes ce chemin si c'est nécessaire
 
    On Error Resume Next
    Set Appli = GetObject(, "Outlook.Application")
 
    'Tester si l'application est ouverte ou non
    If Appli Is Nothing Then
            MsgBox "Outlook est fermé"   '---> Donc ouvre moi une session
            SessionOutlook = Shell(Chemin, 1)
    End If
 
 
  TextBox11 = " Anniversaire en cours d'envoi via OUTLOOK"
  Repaint
  img1 = ""
  Workbooks("donnees.xlsm").Activate
  Worksheets("f_anniv").Select
  Set Ws = Sheets("f_anniv")
  ligne = Me.ComboBox1.ListIndex + 1  'se positionne sur l'index (ligne) du nom combobox
' CHEMIN ======
  img1 = NomFichierComplet    '"D:\Gestion AHI V2\BONJOUR XXXX.jpg"
  MyPicture = ""
  MyPicture = Mid(PathName, InStrRev(PathName, Application.PathSeparator) + 1)
  
   With CreateObject("Outlook.Application").CreateItem(0)
    .HTMLBody = ""
    .BodyFormat = olFormatHTML
    .HTMLBody = "<html><p>" & Body & "</p></html>"
    .Body = "Cher(e) ami(e) bonjour." & vbCr & "En cette journée particulière, ci joint un petit mot de notre président Christian DELAGRANGE." & vbCr & "Nous te souhaitons un joyeux anniversaire." & vbCr & "Merci pour votre aide toujours précieuse." & vbCr & "Bonne journée." & vbCr & "Le secrétariat d'AHI."
    .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img1 & "'>" '-- dans le corps du message ---
    '.Attachments.Add img1  '--- si on veut mettre l'image en piéce jointe ----
    .To = Range("C" & ligne).Value
    .Subject = " Bon anniversaire"
    .Display
    '.Send    '--- envoi direct

    End With
TextBox11 = " "
Repaint
End Sub
 
Vote positif 0 Vote négatif
Bonsoir,
Voilà l'ensemble des procédures qui fonctionne correctement.
Cela peut aider quelqu'un.
Bonne soirée.

VB: 
'============= debut procedure ouverture Outlook =======================
Function OutlookOuvert() As Boolean
  Dim oOL As Object
  On Error Resume Next
  Set oOL = GetObject(, "Outlook.Application")
  On Error GoTo 0
  OutlookOuvert = Not (oOL Is Nothing)
  Set oOL = Nothing
End Function

'==============================================
Private Sub CommandButton2_Click()
' ceci correspond au bouton "Envoyer le message" qui ouvre et compléte Outlook
Dim PathName As String
If OutlookOuvert = False Then i = Shell("Outlook", vbNormalNoFocus)
' CHEMIN ======
NomFichierComplet = UserForm1.chemin2 & "\Bonjour XXXX.jpg"
EmbedPicture NomFichierComplet    '"D:\Gestion AHI V2\Bonjour XXXX.jpg"
End Sub

'==============================================
Sub EmbedPicture(PathName As String)
  Dim MyPicture As String
  Dim img1 As String
  Dim Body As Variant

  TextBox11 = " Anniversaire en cours d'envoi via OUTLOOK"
  Repaint

  Workbooks("donnees.xlsm").Activate
  Worksheets("f_anniv").Select
  Set Ws = Sheets("f_anniv")

  ligne = Me.ComboBox1.ListIndex + 1  'se positionne sur l'index (ligne) du nom combobox
' CHEMIN ======
  img1 = NomFichierComplet    '"D:\Gestion AHI V2\BONJOUR XXXX.jpg"

  MyPicture = Mid(PathName, InStrRev(PathName, Application.PathSeparator) + 1)
  With CreateObject("Outlook.Application").CreateItem(0)

    .HTMLBody = ""
    .BodyFormat = olFormatHTML
    .HTMLBody = "<html><p>" & Body & "</p></html>"
    .Body = "Cher(e) ami(e) bonjour." & vbCr & "En cette journée particulière, ci joint un petit mot de notre président Joseph DUPONT." & vbCr & "Nous te souhaitons un joyeux anniversaire." & vbCr & "Merci pour ton aide toujours précieuse." & vbCr & "Bonne journée." & vbCr & "Le secrétariat de l'association."
    .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img1 & "'>" '-- dans le corps du message ---
    '.Attachments.Add img1  '--- si on veut mettre l'image en piéce jointe ----
    .To = Range("C" & ligne).Value
    .Subject = " Bon anniversaire"
    .Display
    .Send    '--- envoi direct

    End With
TextBox11 = " "
Repaint
End Sub
' ==== fin de procédure envoi du message =====
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Valider automatiquement un message d'alerte
Réponses
4
Affichages
292
GG Delcroix
G
DenisHen
  • Résolu(e)
XL 2019 Envoi d'Email dans Outlook OU ThunderBird, le tout en VBA.
Réponses
1
Affichages
171
DenisHen
DenisHen
pascal21
  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
310
pascal21
pascal21
G
  • Résolu(e)
XL 2021 Envoie d'informations sélectionnés par mail
Réponses
3
Affichages
360
TooFatBoy
TooFatBoy
N
  • Question Question
Microsoft 365 Envoi via Excel avec OutlookNew
Réponses
4
Affichages
635
Titou37P
Titou37P
G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
651
laurent950
laurent950
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
917
spike29
S
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
Oneida
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
542
spike29
S
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
447
Phil69970
Phil69970
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
711
Phil69970
Phil69970
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
907
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
702
Minus&Cortex
M
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
830
lesoldat9
L
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
727
Oneida
Oneida
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
528
Maxou69
M
S
  • Question Question
XL 2013 Ajouter un lien hypertexte dans la macro qui envoi une invitation outlook
Réponses
3
Affichages
1 K
Sbed
S
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
721
JPaul78
J
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
616
Mika07
M
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
Retour