envoi mail selon condition

[ngexcel]

bonsoir

Je remercie les personnes qui m' ont fait évolué pour arriver la ou je suis sur mon projet

je bloque sur la macro elle fonctionne seulement si outlook est ouvert et si je confirme l 'envoi

j ai besoin que le fichier joint s ouvre et lance la macro même si outlook et fermé sans confirmation

merci a tous

 

[Yaloo]

Re : envoi mail selon condition

Re,

Tu peux essayer avec cette fonction :

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

puis au début de ta macro, tu insères cette ligne :

If OutlookOuvert = 0 Then i = Shell("Outlook", vbNormalNoFocus)

A+

Martial

 

[ngexcel]

Re : envoi mail selon condition

Re bonjour
Le premier code je le met dans mon module ?
Peux tu le mettre dans mon fichier joint je ne comprend pas ou mettre les lignes
Merci et mille excuses je suis novice en vba

 

[Yaloo]

Re : envoi mail selon condition

Re,

Le premier code est à mettre dans un module standard.
La deuxième ligne tu la mets en début de ton code, cela va vérifier si Outlook est ouvert si non Outlook va être ouvert.

A+