Отправить по почте закрытую книгу?

[Ленка]

Здравствуйте.
А можно отправить книгу по почте (через Outlook Epr) не открывая ее? До сих пор делала примерно так: Workbook.Open, потом "Call ActiveWorkbook.SendMail(Recipients:=", ну и так далее по тексту... А можно из одной книги отправить другую по почте без всяких AktiveWorkbook, т.е. не открывая оную?
PS Эксель двухтысячный...

[Ленка]

За очепятки пардоньте Спешила очень

[Igor_123]

А зачем тогда Ексель. Вот отправляет любые файлы

[Ленка]

Так ить я и гоаорю: рассылаю по почте екселевские файлики из екселевского же документа с помощью макроса. Но как этот макрос написать чтобы каждый раз не приходилось сначала открывать отсылаемую книгу?

[Ленка]

Спасибо, конечно, а проще нельзя? Ведь мона написать в тексте макроса ActiveWorkbook.SendMail ну и т.д. с указанием куда этот самый активбук послать. А нельзя то-нить типа "С:\Мои документы\1.xls".SendMail и т.д. (знаю что ТАК нельзя, но приблизительно так?).

[Igor_123]

А кто мешает?

Код: Выделить всё

Sub Timer1_Timer(F As String, Adr As String) 'F -  путь к файлу для отправки
' Adr - e-mail
Dim SessionCtrl As Object
Dim MessageCtrl As Object
If Len(F) > 0 Then
  'твой код
  '...
    Set SessionCtrl = CreateObject("MSMAPI.MAPISession")
    If Err.Number <> 0 Then
    MsgBox "Error # " & CStr(Err.Number) & vbLf & Err.Description
    Err.Clear
    End If
    Set MessageCtrl = CreateObject("MSMAPI.MAPIMessages")
    SessionCtrl.DownloadMail = False
    SessionCtrl.SignOn
    MessageCtrl.SessionID = SessionCtrl.SessionID
    MessageCtrl.Compose
    MessageCtrl.RecipAddress = Adr
    MessageCtrl.MsgSubject = "Игорь"
    'MessageCtrl.MsgNoteText = "Body"
    MessageCtrl.AttachmentPathName = F
    MessageCtrl.Send False
    'MsgBox "Всё отправленно"
    Set SessionCtrl = Nothing
    Set MessageCtrl = Nothing
    End
End If
End Sub

Вставь в модуль и вызывай, передай в параметрах путь к файлу и е-маил. и всё

[Ленка]

Шпасибо

[Igor_123]

Незашто

[MOV]

блин сначала выскакивает сообщение аутлюка типа прога пытается отправить сообщение от вашего имени, а потом на строке MessageCtrl.Send False
ошибка:
run-time error 32002
unspecified failue has occurred

[uhm]

Ищи программу Outlook Redemption. Вполне возможно, что ошибка как раз возникает из-за того, что выскакивает это сообщение.

[MOV]

ну скачал ее зарегил.
И что дальше, сделал референс на нее в проекте
Короче как отправить?

[Igor_123]

в оутлуке меню "Сервис"->"Параметры" закладка "Безопастность", на время работы проги снять птицу "Предупреждать, если приложение пытаеться отправить почту от моего имени".

[MOV]

2003 офис нет там такой галки

[Igor_123]

я имел в виду оутлук експрес.

[MOV]

Ага а я думал, он офисный юзает.
Галку выставил, но мессага все равно вылазит, а потом ошибка.
Хотя учетную запись настроил и протестил на аутлюк експрессе.

[Igor_123]

антивирус чего говорит?

[MOV]

Да вроде ничего не говорит.

[Igor_123]

не помню в каком антивирусе встречал дублирование контроля за отправкой почты не почтовой программой. И в настройках это выключалось. Может такая же ситуация?

[MOV]

да вроде антивирь а все равно ругается
блин какие еще варианты?

[MOV]

Напишите может тогда как юзать Redemption.dll
ну подключил ее к проекту
что писать-то?