есть код:
Код:
Код: Выделить всё
SmtpServer = "smtp.123.ru" ; адрес SMTP сервера
$Port = "25" ; Порт SMTP сервера
$FromAddress = "123l@123.ru" ; адрес отправителя
$ToAddress = "123@123.ru" ; адрес назначения
$Subject = """текст""" ; тема письма
$Body = """Текст""" ; тело письма (сам текст письма)
$AttachFiles = "temp.txt" ; прикреплённые файлы к письму
$Username = "123@123.ru" ; имя пользователя аккаунта, с которого отправляется
$Password = "123" ; Пароль
$BlatArgs = "-t "&$ToAddress&" -f "&$FromAddress&" -s "&$Subject&" -body "&$Body&" -server "&$SmtpServer&" -u "&$Username&" -pw "&$Password&" -attach "&$AttachFiles&" -portSMTP "&$Port
_SendMail($BlatArgs)
Func _SendMail($CMDstring)
$BlatDLL = DllOpen ("blat.dll")
$result=DllCall($BlatDLL,"int","Send","str",$CMDstring)
DllClose ($BlatDLL)
EndFuncПисьмо всё прекрасно ходит с вложением но вот кодировка: ┬═╚╠└═╚┼ яЁшт√ёшыр
Как изменить на читабельную?
Спасибо.
