Question : L'automobile envoient Excel comme attachement d'email

Nous avons créé un macro qui importe un dossier de csv d'ouverture/fermeture de session dans Excel et des formats il.  Nous voulons maintenant l'envoyer comme attachement automatiquement.  Le deuxième macro fait juste cela ; cependant, ce semble un peu longtemps.  Directement ci-dessous est la version la plus courte, mais elle montre la boîte d'email au lieu de l'envoyer.  Y a-t-il une autre étape qui peut juste l'envoyer sans intervention d'utilisateur ?  Remercier le macro du Br/>'Macro1 Macro
'du
'< de you.

Sub Macro1 () a enregistré 5/26/2010 Br/> ActiveWorkbook.Save
Application.Dialogs (xlDialogSendMail) du by
'<. Montrer « [email protected] », le
End Sub

du
« de thèmes "----------------------Le


du

Sub EmailExcel () obscurcissent OutApp comme Object
faible OutMail pendant que le

OutApp.Session.Logon

du
d'OutMail d'OutApp d'Object
= de CreateObject (le « Outlook.Application ») = d'OutApp.CreateItem (0) sur le résumé d'erreur Next
avec OutMail
. =
de « [email protected] " .CC =
de "" .BCC =
de "". Le sujet = « ceci est la ligne objet " le
. Corps = « salut là "
. Attachments.Add ActiveWorkbook.FullName
« vous pouvez ajouter d'autres dossiers également comme le this
 ». Attachments.Add (" ")
de C:\test.txt. Envoyer 'ou employer. Extrémité de Display
With
sur le
OutMail = Nothing
OutApp = Nothing
End Sub de l'erreur 0
class= de

Réponse : L'automobile envoient Excel comme attachement d'email

Ou contrôle dehors Windows équilibré.

Signalé par l'intermédiaire du mobile de l'EE