| Вопрос: Как вордовский докукмент отправить через Оутлук | Добавлено: 13.07.05 12:52 |
Автор вопроса:  pashaq2000 | Web-сайт: нет | ICQ: 216117684 |
|
Как вордовский докукмент отправить через Оутлук?
В общем-то без разницы какими-способами. Текстовый файл отправлять получается а вот с вором проблема. Кто знает как? Помогите! Заранее спасибо! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #1 | Добавлено: 14.07.05 06:20 |
| Напишы как отправляешь текстовый файл | ||
|
Номер ответа: 2 Автор ответа: pashaq2000 ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #2 | Добавлено: 14.07.05 06:43 |
|
Dim msg As String
Open "c:\1.txt" For Input As #1 TextMail = "" Dim A As String Do While Not EOF(1) Line Input #1, A TextMail = TextMail & vbCr & vbLf & A Loop Close #1 MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.Compose MAPIMessages1.RecipAddress = "mail@mail.ru" MAPIMessages1.MsgNoteText = TextMail MAPIMessages1.MsgSubject = "Это тема" MAPIMessages1.Send MAPIMessages1.Delete mapRecipientDelete MAPISession1.SignOff |
||
|
Номер ответа: 3 Автор ответа: pashaq2000ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #3 | Добавлено: 14.07.05 06:52 |
| Я так понимаю что в MAPIMessages1.MsgNoteText вордовский документ запихать не получится а если и получится то он потеряет все прелести оформления!!!! | ||
|
Номер ответа: 4 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #4 | Добавлено: 14.07.05 10:06 |
|
Если хочешь в само тело письма запихнуть вордовский документ - это невозможно (только HTML)
приаттачить можно при помощи методов, начинающихся с Attachment |
||
|
Номер ответа: 5 Автор ответа: pashaq2000ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #5 | Добавлено: 14.07.05 10:36 |
| Вложение не пойдет, а вот HTML попробую. | ||
|
Номер ответа: 6 Автор ответа: pashaq2000ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #6 | Добавлено: 14.07.05 10:42 |
| Попробовал в MAPIMessages1.MsgNoteText HTML-файл запихать - Не вышло! Весь HTML на поверхности. Что тогда делать? А с помощью VBA документ DOC нельзя отправить? | ||
|
Номер ответа: 7 Автор ответа: pashaq2000ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #7 | Добавлено: 18.07.05 08:49 |
|
Еще один способ отправки
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip .Subject = "Тема" .AddRecipient "mail@mail.ru" .Delivery = wdAllAtOnce End With ActiveDocument.Route |
||
|
Номер ответа: 8 Автор ответа: pashaq2000ICQ: 216117684 Вопросов: 13 Ответов: 29 |
Web-сайт: Профиль | | #8 | Добавлено: 18.07.05 08:53 |
|
И еще один. Все хорошо работает. Только один фиг оформление вордоского документа теряется. Отправляется обычный TXT.
Я так понимаю никто не знает как .doc отправить!!!!! Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application" 
If Err <> 0 Then 'Outlook wasn't running, start it from code Set oOutlookApp = CreateObject("Outlook.Application"
bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for the new email .To = mail@mail.ru 'Set the recipient for a copy ' .CC = "recipient2@mail.com" 'Set the subject .Subject = "Тема" 'The content of the document is used as the body for the email .Body = ActiveDocument.Content .Send End With If bStarted Then 'If we started Outlook from code, then close it oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing |
||
Страница: 1 |