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

Панели оператора PP/OP/TP/TD/MP.
Программные пакеты ProTool/WinCC flexible, SCADA система WinCC
Post Reply
alf138
Posts: 19
Joined: Fri Jan 18, 2013 5:16 pm

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

Post by alf138 » Fri Jan 05, 2018 6:29 pm

Доброе время суток, коллеги.
Новогодние каникулы самое плохое время, дурная голова...
К вопросу, есть такое дело:

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 повсему экрану... Что делаю не так ? Какой синтаксис в данной теме ?

alf138
Posts: 19
Joined: Fri Jan 18, 2013 5:16 pm

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

Post by alf138 » Fri Jan 05, 2018 6:46 pm

Все разобрался чукча не читатель..

Code: Select all

& objTag.Read & vbCrLf 

Post Reply