envoi mail selon condition

ngexcel · 5 Juillet 2015

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 · 5 Juillet 2015

Re : envoi mail selon condition

Re,

Tu peux essayer avec cette fonction :

VB:

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 :

VB:

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

A+

Martial

ngexcel · 6 Juillet 2015

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 · 6 Juillet 2015

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+

envoi mail selon condition

ngexcel

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

ngexcel

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

envoi mail selon condition

ngexcel

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

ngexcel

XLDnaute Occasionnel

Yaloo

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency