Page 1 of 1

[?+]: Теги по email...

Posted: Fri Jan 05, 2018 6:29 pm
by alf138
Доброе время суток, коллеги.
Новогодние каникулы самое плохое время, дурная голова...
К вопросу, есть такое дело:

Code: Select all

Set objEmail=CreateObject("CDO.Message")
objEmail.From=""****@gmail.com" 
objEmail.To=""****@gmail.com" 
objEmail.Subject="Тэст" 
objEmail.Textbody=" Осталось научится слать чё нужно objTag... "
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****@gmail.com" 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****" 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049
objEmail.BodyPart.CharSet = "windows-1251"
objEmail.Configuration.Fields.Update 
Всё прекрасно, отправляет принимает все видно. Так вот не задача слать просто привет вОрд, не наш метода. Хочется собирать сообщение из тегов, просеных тогов и так далее, понятно что нужно

Code: Select all

Dim objTag
Set objTag = HMIRuntime.Tags("NewTag")

Но при попытки собрать собрать эту красотень во что нибудь такое 

[code]objEmail.Textbody=" Осталось научится слать чё нужно 'objTag'... " 
или

Code: Select all

objEmail.Textbody=" Осталось научится слать чё нужно" +objTag...
Получаю Error повсему экрану... Что делаю не так ? Какой синтаксис в данной теме ?

Re: Теги по email...

Posted: Fri Jan 05, 2018 6:46 pm
by alf138
Все разобрался чукча не читатель..

Code: Select all

& objTag.Read & vbCrLf