[VBA] Pilotage d'Outlook via Excel

  • Initiateur de la discussion Initiateur de la discussion ralph45
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ralph45

XLDnaute Impliqué
Bonjour le forum,

Suite à ma précédente interrogation (Gérer l'impression d'un formulaire [UserForm]), david84 😉 m'avait très bien guidé et le code résultant suivant fonctionne à merveille. Mais... 😛

... comme l'image générée est toujours en mémoire, je voudrais envoyer celle-ci dans un nouveau message Outlook 2010 avec en corps (body) de celui-ci l'image ayant servi à l'impression.

J'ai trouvé des posts sur le forum ou sur le Net pour des solutions quasi-similaires, mais aucune ne me convient réellement (Nota : j'ai déjà coché Microsoft Excel 14.0 Object Library).

Le top du top serait de générer le titre à partir de la cellule A2 de l'onglet "OUTLOOK" avec en destinataires les adresses e-mail contenues dans les cellules A5 à A25.

J'espère que vous pourrez m'éclairer malgré l'absence de fichier joint, car les données déjà renseignées sont à caractère extrêmement confidentiel. A+

Code:
Option Explicit
 Private Declare Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
Private Sub UF1_PRINT_Click()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
     Dim Ws As Worksheet
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    Set Ws = Sheets.Add
    Ws.PageSetup.Orientation = xlLandscape
    Ws.Paste
    With Ws
        .PageSetup.CenterHorizontally = True
        .PageSetup.CenterVertically = True
        .PrintOut
    End With
Unload Me
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Delete
ActiveSheet.Delete
End Sub
 
Dernière édition:
Re : [VBA] Pilotage d'Outlook via Excel

Bonjour Yaloo,

Je m'attendais à ce genre de réponse (J' l'ai cherché aussi, 'faut dire ! 😱 ).
Je vais essayer de créer un fichier et un formulaire bidons, et je reviens vers vous à l'attaque...

A+
 
Re : [VBA] Pilotage d'Outlook via Excel

Re,

Voilà donc mon fichier bidon... 3 onglets : ACCUEIL / OUTLOOK / BASE.

La partie "Impression" est résolue. C'est au tour de l'envoi par messagerie de la capture de l'UserForm1 qui commence :
- Capture image dans le corps du message ;
- Objet : valeur de la liste déroulante de la cellule H2 de l'onglet "OUTLOOK" ;
- De : valeur en "dur" de la cellule H4 de l'onglet "OUTLOOK" ;
- CC : valeur en "dur" de la cellule H6 de l'onglet "OUTLOOK" ;
- Destinataires : valeurs en "dur" des cellules H8 à H20 de l'onglet "OUTLOOK", formules de type RECHERCHEH(), en séparant chacune de ces adresses par un point-virgule...

Je suis disponible pour toute explication supplémentaire...

A+
 

Pièces jointes

Re : [VBA] Pilotage d'Outlook via Excel

Re,

En effet, avec le fichier c'est mieux 😀

Voici ton fichier modifié, c'était pas facile, car il faut en premier lieu copier l'image dans un fichier pour pouvoir le mettre dans le corps de ton mail.

Je n'ai pas tout testé, puisque je n'ai pas les adresses. Mais ça devrait le faire.

A+

Martial
 

Pièces jointes

Re : [VBA] Pilotage d'Outlook via Excel

Re,

En effet, avec le fichier c'est mieux 😀

Voici ton fichier modifié, c'était pas facile, car il faut en premier lieu copier l'image dans un fichier pour pouvoir le mettre dans le corps de ton mail.

Je n'ai pas tout testé, puisque je n'ai pas les adresses. Mais ça devrait le faire.

A+

Martial

Yaloo (Martial ?) : je te remercie grandement.
Je testerai ton code lundi, sauf si je trouve le temps de me connecter via Citrix ce week-end sur mon environnement de travail (Parent pauvre, je n'ai que 2007 en dur)...

Nota Bene : pour les adresses, j'ai trouvé la solution en farfouillant dans le VBA d'OUTLOOK (Groupe(s) de contacts personnalisés = A : / CC : /CCi 🙂

Encore merci de ton aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
2 K
Retour