fermeture outloock

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #2

Re : fermeture outloock

Bonjour le forum

Je reviens avec mon fichier

Avoir juste le code pour fermer outloock 2003

je pense que le fait d'ouvrir outloock et de le refermer permettra d'envoyer les mail

Merci a vous

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2007

• #3

Re : fermeture outloock

Bonjour Eduraiss,

pour fermer outlook :

Code:

Outlook.Quit

il faut bien sur que la référence "microsoft outlook 11.0 object library" soit activée dans l'éditeur vba.

bonne journée
@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #4

Re : fermeture outloock

Re bonjour le forum

Merci Pierrot , j'ai mis Outlook.Quit en fin de ma procèdure lorsque je déclenche la macro, il me dit qualificateur incorrect

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2007

• #5

Re : fermeture outloock

Re

as tu bien activé la référence indiquée précédemment :

il faut bien sur que la référence "microsoft outlook 11.0 object library" soit activée dans l'éditeur vba

Cliquez pour agrandir...

chez moi cela fonctionne sans problème (excel2003)

@+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #6

Re : fermeture outloock

Re

la reference dans l'editeur VBA est bien coché mais cela ne fonctionne pas

Merci

Sub envoiMailEtFeuilleActive()
Dim RetVal As String
Dim Outlook As String

ActiveSheet.Copy ' créée une copie de la feuille active
'ActiveWorkbook.SendMail Recipients:="eric.duraissay@club-internet.fr", Subject:="besoin interimaires " 'envoi Mail
ActiveWorkbook.SendMail Recipients:="toto@tele2.fr", Subject:="besoin interimaires " 'envoi Mail

Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
RetVal = Shell("C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE", 1)

Outlook.Quit


End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Août 2007

• #7

Re : fermeture outloock

Re

qu'est ce qui ne fonctionne pas, Outlook ne se ferme pas ?

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #8

Re : fermeture outloock

Re bonjour
cela bug ici
Qualificateur incorect
Outlook.


Merci

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Août 2007

• #9

Re : fermeture outloock

Salut tout le monde,
Salut Edurais,

Ca ne peux pas fonctionner, tu crées une variable chaine

Code:

Dim Outlook As String

Alors que tu veux quitter une application

Code:

Outlook.Quit

Il faut créer une instance d'Outlook, et fermer cette instance.
Fait une recherche avancée sur le forum avec le mot "outlook", tu devrais trouver des trucs.

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 2 Août 2007

• #10

Re : fermeture outloock

bonjour à tous


Tu peux utiliser cette procédure pour fermer Outlook

Code:

Dim Appli As Object
 
On Error Resume Next
Set Appli = GetObject(, "Outlook.Application")
If Appli Is Nothing Then
    MsgBox "Outlook est déja fermé"
    Else
    Appli.Quit
End If

Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 2 Août 2007

• #11

Re : fermeture outloock

Salut Michel,

Et ouiiiii MichelXLD à encore frappé 😀

Je savais bien qu'il y avait moyen de récupérer l'instance d'une application, mais je ne savais plus comment 😱

A+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #12

Re : fermeture outloock

Re bonjour
T'on application fonctionne mais outlook reste ouvert, comment le fermer?

Merci a vous

Voici le code que j'ai adapté
Sub envoiMailEtFeuilleActive()
Dim RetVal As String

Dim Appli As Object

ActiveSheet.Copy ' créée une copie de la feuille active

ActiveWorkbook.SendMail Recipients:="toto@tele2.fr", Subject:="besoin interimaires " 'envoi Mail

Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
RetVal = Shell("C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE", 1)


On Error Resume Next
Set Appli = GetObject(, "Outlook11.Application")
If Appli Is Nothing Then
MsgBox "Outlook est déja fermé"
Else
Appli.Quit
End If



End Sub

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 2 Août 2007

• #13

Re : fermeture outloock

rebonjour

Code:

Outlook[COLOR=red]11[/COLOR].Application

Ce n'est pas ce que j'ai indiqué dans ma procédure ...



Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 2 Août 2007

• #14

Re : fermeture outloock

Re

j'ai essayer comme ci-dessous mais le problème est le même

outlook s(ouvre le mail est envoyé mais outlook ne se referme pas, apres l'avoir fermer manuellement j'ai bien le message box sur mon fichier excel

Merci a toi

Sub envoiMailEtFeuilleActive()
Dim RetVal As String

Dim Appli As Object

ActiveSheet.Copy ' créée une copie de la feuille active

ActiveWorkbook.SendMail Recipients:="toto@tele2.fr", Subject:="besoin interimaires " 'envoi Mail

Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
RetVal = Shell("C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE", 1)


On Error Resume Next
Set Appli = GetObject(, "Outlook.Application")
If Appli Is Nothing Then
MsgBox "Outlook est déja fermé"
Else
Appli.Quit
End If



End Sub

 

Vote positif 0 Vote négatif