Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Почта из Excell некоторые вопросы

Ответить
Настройки темы
VBA - [решено] Почта из Excell некоторые вопросы

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Есть код который делает рассылку, через outlook , из книги excell . Необходимо вставить в тело письма html шаблон. Можно ли атрибуту .body присвоить значение шаблона, или из текстового файла вставить, или из шаблона письма создать объект и приравнять его .body к отсылаемому. Буду рад услышать советы.

Отправлено: 16:21, 02-08-2011

 

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Кто нибудь отзовитесь!

Отправлено: 23:21, 05-08-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 26854
Благодарности: 7825

Профиль | Отправить PM | Цитировать


Pryanik88, чтобы кто-нибудь отозвался — желательно было, чтобы в Вашем исходном вопросе были озвучены следующие сведения:
* исходный текст «код который делает рассылку»;
* какой именно «outlook», включая версию.

Гадать на кофейной гуще, вытягивать из Вас сведения клещами, приводить код, который затем надо будет десять раз править, потому что Вы не озвучили все исходные данные — желающих мало.

Отправлено: 21:55, 06-08-2011 | #3


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Версия 2007, вопрос изложен, нужно вставить шаблон в текст письма, то есть атрибут .HTMLbody вместо .body
Сформулирую по другому - Как открыть html фаил сохраненный на компьютере, или же лучше ввести текст непосредственно в код.
Извиняюсь за неверно сформулированный вопрос.

Отправлено: 17:00, 08-08-2011 | #4


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вот что наколупал на данный момент, в 2007 работает, создаем кнопку и этот код:

'funkciya dlya otkrytiya texta.
Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Private Sub CommandButton1_Click()

Dim sigstring As String
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim I As Integer
I = 1
sigstring = "C:\123.htm"

'vypolnyaem cycl dlya vseh nepustyh poley
Do Until (Cells(I, 1).Value = "")


'otkryvaem outlook i sozdaem pis'mo
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)




'zapolnyaem pismo dannymi i otsylaem
With OutMail
.To = Cells(I, 2).Value
.Subject = Cells(I, 3).Value
.HTMLBody = GetBoiler(sigstring)
.Attachments.Add Cells(I, 5).Value
.Send
End With

On Error GoTo 0
Set OutMail = Nothing
I = I + 1
Loop


End Sub

Отправлено: 21:35, 09-08-2011 | #5



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] Почта из Excell некоторые вопросы

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2008 - Тормозят программы excell , word IT_Manager Windows Server 2008/2008 R2 1 17-09-2010 15:48
2007 - [решено] Excell 2007 Как сделать чтобы разряды числа не разделялись запятыми? Pit_bul Microsoft Office (Word, Excel, Outlook и т.д.) 2 13-05-2010 11:59
2007 - [решено] MS Office Excell 2007 настройки ассоциации файлов .xls solaris-pvl Microsoft Office (Word, Excel, Outlook и т.д.) 5 03-04-2010 02:43
Офис и Текст - [решено] MS Office Excell 2007 Тая Microsoft Office (Word, Excel, Outlook и т.д.) 1 30-03-2010 01:25
Venta Fax 5.8. Некоторые вопросы radiolomaster Программное обеспечение Windows 3 15-07-2008 19:06




 
Переход