Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис отправки писем / 4 сообщений из 4, страница 1 из 1
09.09.2014, 14:19
    #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:46
    #38741791
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный синтаксис отправки писем
На одном "синтаксисе" тут далеко не уедешь, нужно функцию переписывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2014, 14:52
    #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
| Ответить | Цитировать | Написать  
10.09.2014, 07:25
    #38742395
Im_Max
Im_Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Правильный синтаксис отправки писем
Antonariy,

Огромное спасибо. Все работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Правильный синтаксис отправки писем / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 674ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156216]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 270ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 2ms
others: 324ms
total:  674ms
x
x
Закрыть


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