Discussion :

[alolaterre]

Je suis un super novice en macro, mais je commence à les exploiter pour le boulot et je n'imaginais pas les possibilités qu'elles offrent..

Bref je cherche à ajouter une macro qui enverrait le classeur actif par mail, toujours à la même adresse et toujours avec le même objet de message.
Mais qui testerai d'abord qu'outlook est ouvert. Mais j'aimerai que si outlook est fermé une message-box m'informe et stop la macro en cours.
Et enfin si outlook est ouvertil faut que le fichier soit enregistré sur la première feuille du classeur avant d’être envoyer.

J'ai trouvé plusieurs message à se sujet, et j'arrive à faire chaque fonction indépendamment mais je n'arrive pas à les lier entre elles.

Merci d'avance pour votre aide...

A titre informatif voila où j'en suis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub EnvoiMail()
 
Set appli_outlook = Outlook.Application
 
If appli_outlook.ActiveWindow Is Nothing Then
 
MsgBox "erreur envoi e_mail car outlook non chargé"
 
End If
 
 
Sheets("Commande ").Select
Range("A1").Select
ActiveWorkbook.Save
 
 
Workbooks("Commande.xlsm").SendMail
Recipients:="adress@mail.net", _
Subject:="Test envoi classeur", _
 
 
End Sub

[mayekeul]

bonjour,

j'ai juste une question avant de te répondre. Pourquoi stopper la macro si outlook n'est pas démarré?

[alolaterre]

C'est pas idiot ce que tu dis

Je veux que ça soit simple et facile, pour que n'importe qui puisse le faire sans se poser de question.

Dans l'idéal j'aurai même aimé qu'outlook s'ouvre s'il est fermé, mais ça je n'y arrive pas.
Tu as raison la macro peux ne pas s'interrompre, puisque une fois outlook ouvert le fichier partira.

[joe.levrai]

Bonjour,

à ce stade, quels sont les problèmes non résolus à ton sujet ?


Concernant la détection/ouverture d'une instance Outlook, regarde du côté de la fonction CreateObject dans l'aide

[mayekeul]

alors fait comme ça si cela concerne juste un mail
ne t'inquietes pas de savoir si outlook est ouvert ou pas et lance juste une session que tu refermera une fois terminé

par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub envoi_mail()
    Dim oApp As New Outlook.Application
    Dim oMailItem As Outlook.MailItem
 
    Set oMailItem = oApp.CreateItem(olMailItem)
 
    With oMailItem
        .To = "foo@mail.com"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
 
    Set oMailItem = Nothing
    Set oApp = Nothing
End Sub

edit: ne pas oublier d'indiquer la référence à outlook dans les options de l'EDI via Tools=>Références ==>> cocher Microsoft Outlook xx Object Library

[joe.levrai]

Bonjour mayekeul,

pourquoi ne pas proposer une liaison tardive en utilisant une variable Object à instancier durant l'éxecution ?

ça évite de cocher la référence en question.
dans son contexte (aller au plus simple pour ses utilisateurs), ça serait stratégique non ?

mais tu as peut être une raison que je ne vois pas en l'état

[mayekeul]

bonjour joe.levrai,

c'est simplement didactique. En faisant comme cela, il aura accès a l'intellisense de VBA.

Mais effectivement une meilleure pratique serait de tester si l'objet à instancier existe avant.
Et évidemment ouvrir l'instance au bon moment.

[joe.levrai]

Je veux que ça soit simple et facile, pour que n'importe qui puisse le faire sans se poser de question.

En fait c'est cette phrase qui m'a poussé à aborder cette problématique de distribution de la procédure.

Quoi qu'il en soit, je pense que notre échange lui sera utile pour son perfectionnement

[mayekeul]

Non mais, je taquine un peu.

Il doit retenir une chose de ces deux méthodes, et c'est ou je vais corriger ce que tu à écrit plus haut, il faut -dans "ma" méthode- s'assurer que le destinataires possède la même librairie. Dans le cas contraire, l'autre est plus adaptée.

[alolaterre]

Merci à tous pour cette éclairage (pas toujours clair pour moi mais j'en comprends les grandes lignes)

J'ai plusieurs point de ventes et je dois dupliquer ce fichier, donc effectivement je préfère utiliser la liaison tardive, pour n'avoir qu'a envoyer le fichier sans passer par des paramétrages des différentes librairies de chaque poste.

Mon problème actuel est que le code que je vous ai envoyé au début du post ne fonctionne pas (c'est un copié/collé de différente macro trouvées et je n'arrive pas à les "additionner" entre elles... ). J'aimerais que vous me donniez votre avis
Je ne suis pas assez perfectionné pour comprendre chaque terme.

Est il possible d'envoyer le classeur actif sans passer par outlook
Jai supprimer les sécurités de ma messagerie mais malgré ca il me demande d'autoriser l'envoi