fermeture outloock

[eduraiss]

Bonjour le forum

Volia dans le fichier qui suit

J'ai une macro qui me permet d'envoyer la feuille active par mail

elle ouvre outloock pour envoyer mais ne le referme pas comment faire et si possible s'avoir si cette page a été envoyer

Merci a vous

voici le fichier

 

[eduraiss]

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

 

[Pierrot93]

Re : fermeture outloock

Bonjour Eduraiss,

pour fermer outlook :

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
@+

 

[eduraiss]

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

 

[Pierrot93]

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

chez moi cela fonctionne sans problème (excel2003)

@+

 

[eduraiss]

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

 

[Pierrot93]

Re : fermeture outloock

Re

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

 

[eduraiss]

Re : fermeture outloock

Re bonjour
cela bug ici
Qualificateur incorect
Outlook.


Merci

 

[Compte Supprimé 979]

Re : fermeture outloock

Salut tout le monde,
Salut Edurais,

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

Dim Outlook As String

Alors que tu veux quitter une application

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.

 

[MichelXld]

Re : fermeture outloock

bonjour à tous


Tu peux utiliser cette procédure pour fermer Outlook

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

 

[Compte Supprimé 979]

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+

 

[eduraiss]

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

 

[MichelXld]

Re : fermeture outloock

rebonjour

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

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



Bonne soirée
MichelXld

 

[eduraiss]

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