ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Требую совета или о Workbook.SendMail всерьез
13 сообщений из 38, страница 2 из 2
  2  все
Требую совета или о Workbook.SendMail всерьез
    #36466213
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Игорь ГорбоносПотому что это на винде привыкли в реестр лазить за каждым чихом, а thunderbird есть и не на виндеНе на винде нет офиса :)
...
Рейтинг: 0 / 0
12.02.2010, 15:43
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466231
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Antonariy
> Не на винде нет офиса :)

Я тоже так думал до этого момента
Да и ОпенОфис поддерживает аналог(?) VBA в котором наверняка можно захотеть сделать подобное :)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
12.02.2010, 15:49
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466246
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Antonariy]Для CDO это абсолютно не важно, можно указать любой, на котором включен релей. Отправка письма на адрес user@domen.ru происходит так: SMTP-сервер, к которому обратилось CDO, запрашивает у DNS-сервера, обслуживающего домен @domen.ru, MX-запись, которая является адресом почтового сервера, который обслуживает почтовый адрес user@domen.ru. И SMTP-сервер посылает письмо этому серверу, а клиент его забирает. Все.


если я Вас верно понял то

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Set oMSG = CreateObject("CDO.Message")
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPSERVER" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =  0 
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update
oMSG.To = MailAdres 'адрес получателя
oMSG.From = "My@mail.ru" 'адрес отправителя
oMSG.SubJECT = "RE: " & SubjNa ' тема письма
oMSG.BodyPart.Charset = "windows-1251" ' кодировака письма
'oMSG.AddAttachment attach
'формируем HTML текст который будет телом письма
oMSG.HTMLBody = BodyM 'тело письма
oMSG.send 'отправляем
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
End Sub

отлично заведется и без

CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTPSERVER" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

или какой код?
...
Рейтинг: 0 / 0
12.02.2010, 15:52
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466288
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Shamanusотлично заведется и безКак показал опыт, раз на раз не приходится.
Он отлично заведется, если на локальном компе запущена служба SMTP.

Jah loves you.
...
Рейтинг: 0 / 0
12.02.2010, 16:00
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466318
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Antonariy,
ясно. Наверно тогда выбранный мной способ проще.
Спасибо за участие.
...
Рейтинг: 0 / 0
12.02.2010, 16:08
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466329
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Shamanus,
отлично заведется и без
У меня "заводился". Только с какого-то момента, после обновления с узла microsoft, пришлось старую библиотеку вернуть на место: с обновлённой все попытки отправить сообщения завершились неудачей. В чём причина, я так до сих пор и не знаю.
...
Рейтинг: 0 / 0
12.02.2010, 16:10
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #36466483
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Уточню: библиотека cdosys.dll
Версия 6.0.6015.0 (от 20.10.01) - с ней отправка работала без проблем
Версия 6.2.2.0 (от 17.08.04) - при вызове "send" возникала ошибка (какая - не скажу - всё-таки пять лет прошло...)
...
Рейтинг: 0 / 0
12.02.2010, 16:41
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Требую совета или о Workbook.SendMail всерьез
    #38210460
mmute
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mmute
Гость
ShamanusВ общем для истории если кому надо вдруг будет

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub SendEMail(PathMoz, adres, subjm, bodym, atm As String)
Dim FullStr As String

' удостоверяемся что есть thunderbird
If Dir(PathMoz) = "" Then PathMoz = GetFileName  ' функция GetFileName работает с диалогом и предлагает найти местоположение thunderbird
    If PathMoz = "" Or Dir(PathMoz) <> "thunderbird.exe" Then
        MsgBox "Не найдена почтовая программа"
        Exit Sub
    End If

' Набиваем код командной строки
FullStr = PathMoz ' путь к клиенту
FullStr = FullStr & " -compose to=""" & adres & """" '  адрес, адреса
FullStr = FullStr & " ,subject=""" & subjm & """"   ' тема
FullStr = FullStr & " ,body=""" & bodym & """" ' тело
atm = Replace(atm, "\", "/", , , vbTextCompare) ' инверсируем знаки \ на / для thunderbird версий 2.0 и более иначе получим ярлык
FullStr = FullStr & " ,attachment=""file:///" & atm & """" ' прицепляем attach
Shell FullStr, 1  ' собственно выполняем
End Sub


Sub DoIT()
Call SendEMail("C:\Program Files\Mozilla Thunderbird\thunderbird.exe", "My@mail.ru", "Лист", "Лист", "E:\1\123.xls")
End Sub



а так тема закрыта

Господа, знаю что тема форума от 2010 года :) Но меня очень интересует отправка нескольких файлов по почте.
Как я уже не пробовал, но вставить два файла в строку attachment невозможно.
Пожалуйста, покажите на примере как точно вписать файлы вложения в код.
...
Рейтинг: 0 / 0
03.04.2013, 10:15
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #38210497
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
С помощью этого способа — никак.
...
Рейтинг: 0 / 0
03.04.2013, 10:35
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #38210776
mmute
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mmute
Гость
AntonariyС помощью этого способа — никак.

А какие есть варианты отправки нескольких файлов через Thunderbird?
...
Рейтинг: 0 / 0
03.04.2013, 12:14
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #38210785
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Почему бы не спросить об этом на форуме по Thunderbird?
...
Рейтинг: 0 / 0
03.04.2013, 12:15
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #38210821
mmute
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mmute
Гость
Спасибо за совет. Если с форума никто не сможет помочь, или на практике не использует такой метод отправки, я обязательно спрошу об этом на форуме по Thunderbird.
...
Рейтинг: 0 / 0
03.04.2013, 12:25
| Ответить | Цитировать | Написать  
Требую совета или о Workbook.SendMail всерьез
    #38352460
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
mmuteAntonariyС помощью этого способа — никак.

А какие есть варианты отправки нескольких файлов через Thunderbird?попробуйте сделать в 2 этапа
через консольные команды 7Zip заархивировать файлы, а через эту процедуру отправить
...
Рейтинг: 0 / 0
02.08.2013, 09:54
| Ответить | Цитировать | Написать  
13 сообщений из 38, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Требую совета или о Workbook.SendMail всерьез
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/moderation_log.php?user_name=mikolyan]:
 0ms
get settings:
 12ms
get forum list:
 14ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 701ms
total:  875ms
созд. / загр.: 875ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]