Отправка e-mail из Excel

[Beerukoff]

Приветик!

Сколько бьюсь никак не могу сделать отправку письма из Excel

Задача - из Excel'a с помощью макроса отправить письмо адресату с темой письма и главное с телом письма, но без вложения самой книги.

Эксель же позволяет через VBA отправлять целиком всю книгу и при этом не дает заполнять текст сообщения.

Как мне быть???

Спасибо!!!

[Tuco]

Dim adrBook As Outlook.AddressList
Dim adrEntry As Outlook.AddressEntry
Dim newMessage As Outlook.MailItem
Dim newRecipient As Outlook.Recipient
Dim strAddress As String
Dim myOutlookApp As Outlook.Application
Dim MessageSubject As String
Dim MessageBody As String

MessageSubject = "тема письма"
MessageBody = "содержание письма"
strAddress = "адрес"

Set myOutlookApp = New Outlook.Application

Set newMessage = myOutlookApp.CreateItem(olMailItem)
newMessage.Subject = MessageSubject
newMessage.Body = MessageBody

Set newRecipient = newMessage.Recipients.Add(strAddress)

newMessage.Send

[Beerukoff]

Находил я текст этого макроса в инете.
У меня Офис 2000 стоит
Так вот на первой же команде "Dim adrBook As Outlook.AddressList" ругается на то что "User defined type not defined"

Может я что-то не так делаю

[alibek]

Так подключи в References библиотеку CDO или Outlook

[Beerukoff]

Спасибо!!! Макрос уже не ругается Сейчас буду дальше разбираться... Еще раз спасибо!!!

[Isa]

В дополнение к приведенному примеру хочу спросить:

А нельзя ли КАК-НИТЬ отключить выдачу запроса на "РАЗРЕШЕНИЕ послать от вашего имени из другого приложения".
Такая неприятность возникает если организовывать циклическую рассылку писем группам адресатов, то приходится каждому адресату "подтверждать" РАЗРЕШЕНИЕ.
Притомился я уже от такой автоматизации...

[syrok]

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

  Dim sPath2TheBat As String
  Dim sKeys4Thebat As String

sPath2TheBat = "C:\Program Files\The Bat!\thebat.exe "
 
  sKeys4Thebat = "/MAILT=D:\шаблон.txt;A=" & "D:\attachach.txt" & ";SEND;" & "S=Сводка"

  Shell (sPath2TheBat & sKeys4Thebat)


[corgi]

В дополнение к приведенному примеру хочу спросить:

А нельзя ли КАК-НИТЬ отключить выдачу запроса на "РАЗРЕШЕНИЕ послать от вашего имени из другого приложения".
Такая неприятность возникает если организовывать циклическую рассылку писем группам адресатов, то приходится каждому адресату "подтверждать" РАЗРЕШЕНИЕ.
Притомился я уже от такой автоматизации...

ставь office 2000 без всяких sp тогда этих сообщений не будет или пиши на vb add in для outlook'a