ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис отправки писем
4 сообщений из 4, страница 1 из 1
Правильный синтаксис отправки писем
    #38741764
Im_Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Im_Max
Гость
Здравствуйте.
Есть код отправки файлов:
Код: 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.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx")


Public Function sendEmailSF(emailTo As String, emailSubject As String, emailBody As String, file As String, Optional VarDebug As Boolean) As Integer

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

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") = ""
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'password
CFields("urn:schemas:mailheader:content-language") = "windows-1251"
CFields.Update

oMSG.To = emailTo
oMSG.From = ""
oMSG.Subject = emailSubject
oMSG.BodyPart.Charset = "windows-1251"

                                                                                           
                                                                                           oMSG.AddAttachment file
oMSG.HTMLBody = emailBody
oMSG.Send

End Function



Код писал не я. Взял где-то на этом форуе. Использовал для отправки пользователям отчетов Excel. По 1 файлу. Моно используя данный алгоритм отправлять сразу несколько файлов? Если да - то как будет выглядеть синтаксис?

Пробовал так:
Код: vbnet
1.
a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx ; D:\Отчеты\Сегодня\" & Date & " продажи.xlsx")



Вылетает ошибка.
...
Рейтинг: 0 / 0
09.09.2014, 14:19
| Ответить | Цитировать | Написать  
Правильный синтаксис отправки писем
    #38741791
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
На одном "синтаксисе" тут далеко не уедешь, нужно функцию переписывать.
...
Рейтинг: 0 / 0
09.09.2014, 14:46
| Ответить | Цитировать | Написать  
Правильный синтаксис отправки писем
    #38741797
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Код: 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.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
Public Function sendEmailSF(emailTo As String, emailSubject As String, emailBody As String, ParamArray files()) As Integer

Dim oMSG As Object
Dim oConfig As Object
Dim CFields As Object
Dim strBody As String

    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") = ""
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Login
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'password
    CFields("urn:schemas:mailheader:content-language") = "windows-1251"
    CFields.Update
    
    oMSG.To = emailTo
    oMSG.From = ""
    oMSG.Subject = emailSubject
    oMSG.BodyPart.Charset = "windows-1251"
    
    For x = 0 To UBound(files)
        oMSG.AddAttachment files(x)
    Next
        
    oMSG.HTMLBody = emailBody
    oMSG.send

End Function

a = sendEmailSF("", "" & Date & " Остатки", "", "D:\Отчеты\Сегодня\" & Date & " остатки.xlsx", "D:\Отчеты\Сегодня\" & Date & " продажи.xlsx")
...
Рейтинг: 0 / 0
09.09.2014, 14:52
| Ответить | Цитировать | Написать  
Правильный синтаксис отправки писем
    #38742395
Im_Max
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Im_Max
Гость
Antonariy,

Огромное спасибо. Все работает.
...
Рейтинг: 0 / 0
10.09.2014, 07:25
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис отправки писем
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38741791&tid=2156216]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 137ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 295ms
total:  521ms
созд. / загр.: 521ms
x
x
Закрыть


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