Прога - Word - E-Mail

[tofik]

Ввожу в своей программе адрес мыла...
выбираю файл .doc который содержит текст письма...

Но как отослать E-Mail через ворд, ума не приложу...


помогите...

[dr.MIG]

А зачем через Word? Програмно скопируй текст из Worda, вставь куда следует и отошли.

[tofik]

а "куда следует", это куда?

[dr.MIG]

В текстовое поле твоей программы отсылающей письма.

[tofik]

А форматирование текста при этом сохранится?
А как лучше посылать сообщения?
Чето я в форуме почитал:
через winsock-пишут что гемороя много,
через MAPI-если есть Outlook выдается сообщение на 5 сек, что тож не подходит, т.к. надо делать массовую рассылку!

[tofik]

А как программно скопировать текст из ворда

[dr.MIG]

Насчёт того как лучше посылать сказать не могу. Ну а по поводу форматирования - это как и куда вставлять будешь. Можно попробовать в RichTextBox.
А код типа этого чего-то:

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Execute ("1.doc")     'открываем документ
GetObject("1.doc").Application.Run ("macros")     'запускаем
                                                                         'предварительно                                                                                  'написанный                                                                                         'макрос "macros"                                                                                  'для                                                                                                     'копир.текста в буфер.
RichTextBox1.Text = Clipboard.GetText   'вставляем текст
End Sub

Sub Execute(DocName As String)
ShellExecute 0, "Open", DocName, "", "", SW_SHOWNORMAL
End Sub


p.s. код не проверял. за возможные ошибки и неточности не ручаюсь.

[Ramzes]

Тут есть два варианта, первый:

Средства записи макросов, смотри, нажимаешь на кнопку начать запись, потом посылаешь письмо с ворда, там есть такая кнопка , потом копируешь код который получился и всталяешь в свою программу.


И второй создаешь макрос в ворде и вызываешь его из своей программы, но первый мне больше нравиться. Щас напишу и выложу примерчик.

[tofik]

а я могу в обычный объект скопировать весь текст из какого нибудь обьекта ворда?
проще говоря в каком объекте храниться текст активного документа?

[Ramzes]

Вот написал кое-что

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

Надо подключить к проекту Microsoft Word
Private Sub Form_Load()
Dim WW As New Word.Application
WW.Documents.Open "C:\doc1.doc"
    WW.Visible = False
    WW.ActiveDocument.HasRoutingSlip = False
    WW.ActiveDocument.HasRoutingSlip = True
    WW.ActiveDocument.RoutingSlip.AddRecipient Recipient:="Адрес"
    With ActiveDocument
        With .RoutingSlip
            .Protect = wdAllowOnlyComments
            .Subject = "Тема"
            .Message = "Тут текст сообщения"
            .Delivery = wdOneAfterAnother
            .ReturnWhenDone = True
            .TrackStatus = True
        End With
        .Route
    End With
End Sub


Вот такой код откроет документ и отправит его

[tofik]

ПОПРОБЫВАЛ. А ОН МНЕ ПИШЕТ: "Документ не содержит маршрута. Добавьте его и попробуйте еще раз".
Что бы это значило???