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
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