macro pour envoyer en pièce jointe un fichier excel par outlook

michel.dupont

XLDnaute Occasionnel
bonjour j'ai bricolé un code pour envoyer en pièce jointe un fichier excel par outlook
voici la macro dans le fichier excel
le problème est que outlook stocke le message dans sa boite d'envoi et donc je dois ouvrir outlook pour procéder à l'envoi...
ne sait-on pas automatiser l'envoi sans ouvrir outlook ou alors l'ouvrir et le fermer automatiquement.
merci de tout coeur pour votre aide
Michel

Sub envoi()
ThisWorkbook.Save
destinataires = Array( "xxx@proximus.be")
ActiveWorkbook.SendMail Recipients:=destinataires, Subject:="Reservation Vehicules" & ActiveWorkbook.Name, ReturnReceipt:=False

End Sub
 

zebanx

XLDnaute Accro
Re- Michel

Un fichier contenant une macro qui semble répondre aux besoins (ie : Je n'ai pas vu d'ouverture / fermeture outlook)
Pas testé en mode "array" mais vous devriez déjà pouvoir avancer sur votre code.

Ci-joint également le code source utilisé au départ

Ne pas oublier le point mentionné en 4 à savoir de cocher une référence supplémentaire en VBE
VBE (ALT + F11)-> Goto Tools-References and place a checkbox next to Microsoft Outlook xx.0 Object Library

xl-ment
zebanx
 

Pièces jointes

  • send_email.xlsm
    16 KB · Affichages: 18
Dernière édition:

Discussions similaires

Réponses
10
Affichages
360
Haut Bas