Здравствуйте.
Есть код для отправки писем:
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.
37.
38.
39.
40.
41.
42.
Public Function sendEmail(emailTo As String, emailSubject As String, emailBody As String, Optional VarDebug As Boolean) As Integer
On Error GoTo Err_sendEmail
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" 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass" '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
sendEmail = 1
Exit_sendEmail:
Set CFields = Nothing
Set oConfig = Nothing
Set oMSG = Nothing
Exit Function
Err_sendEmail:
sendEmail = 0
If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Description)
Resume Exit_sendEmail
End Function
С помощью неё я рассылаю ссылки на отчеты разным пользователям.
Функция имеет следующий вид:
1.
a = sendEmail("адресат", "Тема письма", "Тело письма")
Тело письма имеет следующий вид:
1.
<a href='\\Сеть\Отчеты\Новый отчет1.xlsx'>" & Date & "новый отчет1</a> <BR><BR> <a href='\\Сеть\Отчеты\Новый отчет2.xlsx'>" & Date & "новый отчет2</a>
Дело в том, что если пользователь получает много отчетов, то весь текст не влезает в строку.
Поэтому я бы хотел присвоить каждой ссылке функцию. И вместо теста вставлять функции. Только не знаю, как в VBA это правильно описать.
Хочу примерно следующее:
1.
2.
3.
4.
a = sendEmail("адресат", "Тема письма", " o1 <BR><BR> o2 <BR><BR> o3 ")
o1 = <a href='\\Сеть\Отчеты\Новый отчет1.xlsx'>" & Date & "новый отчет1</a>
o2 = <a href='\\Сеть\Отчеты\Новый отчет1.xlsx'>" & Date & "новый отчет2</a>
o3 = <a href='\\Сеть\Отчеты\Новый отчет1.xlsx'>" & Date & "новый отчет3</a>
Естественно письмо рассылается с текстом о1,о2,о3 вместо ссылок. Подскажите как правильно нужно оформить код?
