Size: a a a

2020 May 05

KB

Kit Bayun in Delphi & Lazarus
источник

DB

Dmitry Belkevich in Delphi & Lazarus
import smtplib

from string import Template

from email.mime.multipart import MIMEMultipart
from email.mime.text import MIMEText

MY_ADDRESS = 'my_address@example.comm'
PASSWORD = 'mypassword'

def get_contacts(filename):
   """
   Return two lists names, emails containing names and email addresses
   read from a file specified by filename.
   """
   
   names = []
   emails = []
   with open(filename, mode='r', encoding='utf-8') as contacts_file:
       for a_contact in contacts_file:
           names.append(a_contact.split()[0])
           emails.append(a_contact.split()[1])
   return names, emails

def read_template(filename):
   """
   Returns a Template object comprising the contents of the
   file specified by filename.
   """
   
   with open(filename, 'r', encoding='utf-8') as template_file:
       template_file_content = template_file.read()
   return Template(template_file_content)

def main():
   names, emails = get_contacts('mycontacts.txt') # read contacts
   message_template = read_template('message.txt')

   # set up the SMTP server
   s = smtplib.SMTP(host='your_host_address_here', port=your_port_here)
   s.starttls()
   s.login(MY_ADDRESS, PASSWORD)

   # For each contact, send the email:
   for name, email in zip(names, emails):
       msg = MIMEMultipart()       # create a message

       # add in the actual person name to the message template
       message = message_template.substitute(PERSON_NAME=name.title())

       # Prints out the message body for our sake
       print(message)

       # setup the parameters of the message
       msg['From']=MY_ADDRESS
       msg['To']=email
       msg['Subject']="This is TEST"
       
       # add in the message body
       msg.attach(MIMEText(message, 'plain'))
       
       # send the message via the server set up earlier.
       s.send_message(msg)
       del msg
       
   # Terminate the SMTP session and close the connection
   s.quit()
   
if name == 'main':
   main()
источник

DB

Dmitry Belkevich in Delphi & Lazarus
я бы не сказал, что на питоне три строки
источник

DB

Dmitry Belkevich in Delphi & Lazarus
и сильно проще чем на делфе. фактически тоже самое
источник

DB

Dmitry Belkevich in Delphi & Lazarus
как обычно сказки )
источник

VO

Vitaly Orz. in Delphi & Lazarus
Dmitry Belkevich
как обычно сказки )
Да я не агитирую. Часть на питоне я сделал все работает. Хотя я его вообще не знал до этого а вот с ыдельфи имел дело. А почту отправить е могу. Сервак рубит
источник

DB

Dmitry Belkevich in Delphi & Lazarus
ну смотри, что ему не так там )
источник

VO

Vitaly Orz. in Delphi & Lazarus
Разбираюсь
источник

VO

Vitaly Orz. in Delphi & Lazarus
Vitaly Orz.
Разбираюсь
Люди я нашел решение
источник

VO

Vitaly Orz. in Delphi & Lazarus
Indy глючат похоже
источник

VO

Vitaly Orz. in Delphi & Lazarus
Если их динамически создавать то все ок.
источник

VO

Vitaly Orz. in Delphi & Lazarus
А вот если кинуть на форму и что то пробовать с ними сделать серваки шлют лесом на несоответствие версий SSL
источник

VO

Vitaly Orz. in Delphi & Lazarus
Возможно когда он создаётся динамический в нем есть только то что указалт прямо в когде. А когда он на форме где то в нем есть что то такое которое мешает работе
источник

VO

Vitaly Orz. in Delphi & Lazarus
Объяснить это дело пока не в моих силах ...знаний не хватате
источник

DB

Dmitry Belkevich in Delphi & Lazarus
Vitaly Orz.
Люди я нашел решение
👌
источник

DB

Dmitry Belkevich in Delphi & Lazarus
скорее всего по-разному свойства стоят
источник

VO

Vitaly Orz. in Delphi & Lazarus
Dmitry Belkevich
скорее всего по-разному свойства стоят
Да все один в один поставил
источник

VO

Vitaly Orz. in Delphi & Lazarus
Мало того.....если формируешь динамически MSG то все гуд. А скажем кидаешь на форму TIdMesssge заполняешь ее так же один в один. Пытаешь отправить те что работало.....и....банан
источник

VO

Vitaly Orz. in Delphi & Lazarus
Хотя это по сути переменная она никак к хендлерам не поивязано
источник

VO

Vitaly Orz. in Delphi & Lazarus
Ну так АК это блин....необьяснимо
источник