Pergunta : O automóvel emite Excel como o acessório do email

Nós criamos um macro que importasse uma lima do csv do início de uma sessão/término de uma sessão em Excel e em formatos ele.  Nós queremos agora emiti-lo automaticamente como um acessório.  O segundo macro faz apenas aquele; entretanto, parece um bocado por muito tempo.  Diretamente abaixo está a versão a mais curta, mas mostra a caixa do email em vez de emiti-la.  Há uma outra etapa que possa apenas o emitir sem intervenção do usuário?  Agradecer ao macro do Br/>' Macro1 Macro
' do
'< de you.

Sub Macro1 () gravou 5/26/2010 de Br/> ActiveWorkbook.Save
Application.Dialogs do by
'< (xlDialogSendMail). Mostrar “[email protected]”, o
End Sub

do
do “assunto "----------------------O


do

Sub EmailExcel () escurece OutApp como Object
OutMail não ofuscante enquanto o
o
OutApp.Session.Logon

do
de OutMail de OutApp de Object
= de CreateObject (“Outlook.Application”) = de OutApp.CreateItem (0) no resumo Next
do erro com OutMail
. =
de “[email protected] " .CC =
do "" .BCC =
do "". O assunto = “isto é a linha sujeita "
. Corpo = “olá! lá "
. Attachments.Add ActiveWorkbook.FullName
“você pode adicionar outras limas igualmente como o this
”. Attachments.Add (de “")
C:\test.txt. Emitir 'ou usar. Extremidade With
de Display
no
OutMail = Nothing
OutApp = Nothing
End Sub do erro 0
class= do

Resposta : O automóvel emite Excel como o acessório do email

Ou verificação para fora Windows de estado estacionário.

Afixado através do móbil da EE