Автор Тема: [Сеть, интернет] Как отправить Email сообщение на русском языке без использования других прог  (Прочитано 15176 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн alex33 [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 1431
  • Репутация: 178
  • Пол: Мужской
    • alekssamos ВКонтакте
    • Награды
  • Версия AutoIt: 3.3.12.0

Русское сообщество AutoIt


Оффлайн yaoleg [?]

  • Новичок
  • *
  • Сообщений: 3
  • Репутация: 0
    • Награды
Что-то у меня ничего не получается, может кто что поконкретнее подскажет? :(
Код: AutoIt [Выделить]
$aA = _FileListToArray("c:\Downloads\mail\", '*.zip', 1)
for $i = 1 to $aA[0]
$sFile = $aA[$i]


Оффлайн Се-рё-жа [?]

  • Новичок
  • *
  • Сообщений: 12
  • Репутация: 0
  • Пол: Мужской
    • Награды
В моём случае необходимо отправить файл .zip размером 50 МБ. Возможно ли прикрепить такой файл не разбивая его? Попробовал отправить с помощью  CDO - ошибка. Почта - mail.ru. Хотя маленький файл отправил без проблем. Подозреваю, что сервер не дает отсылать такие файлы. Если отправлять вручную через браузер - файл помещается в какое-то хранилище. Может кто знает в этом нюансы?

Русское сообщество AutoIt


Оффлайн armenxxx1 [?]

  • Продвинутый
  • ***
  • Сообщений: 155
  • Репутация: 56
    • Награды
Код: AutoIt [Выделить]
PingG()

Func PingG()
Sleep(1000)
$var = Ping("www.google.com",1000)
If $var Then
SendMeil()
Else
PingG()
EndIf
EndFunc

Func SendMeil()
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = "[email protected]" ;Имейла от когото изпращате
.To = "[email protected]" ;Имейла на когото ще изпращате
.Subject = "Относно" ;Относно
;.TextBody = "Текст" ;Текст на имейла ако е в обикновен формат
.BodyPart.Charset= "UTF-8" ;кодировка на писмото "windows-1251"
.HTMLBody = "<b>Текст Текст Текст</b></br>" ;В HTML формат
.AddAttachment ("C:\boot.ini") ;Файл за изпращане
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = "smtp.abv.bg" ;smtp сървар
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = "[email protected]" ;Имейла на smtp сървара
.Item ($str & "sendpassword") = "pss" ;Парола на smtp сървара
.Item ($str & "smtpusessl") = 1 ;TLS/SSL 0 е спрян
.Item ($str & "smtpserverport") = 465 ;Порт
.Update
EndWith
$hMAIL.Send
EndFunc


http://secrets-bg.com/portal/forum/04/2/index.php?cls=2
http://autoit-script.ru/index.php?topic=12508.msg80728#msg80728
« Последнее редактирование: Июль 31, 2014, 20:29:20 от armenxxx1 »
Извините, если я пишу неправильно, но я иностранец.

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
3 Ответов
6650 Просмотров
Последний ответ Декабрь 29, 2009, 20:25:33
от Suppir
5 Ответов
5952 Просмотров
Последний ответ Январь 25, 2012, 12:57:30
от armenxxx1
1 Ответов
1999 Просмотров
Последний ответ Март 10, 2013, 01:16:45
от joiner
11 Ответов
3042 Просмотров
Последний ответ Июль 07, 2014, 15:11:48
от goldoba
19 Ответов
4233 Просмотров
Последний ответ Ноябрь 01, 2014, 10:50:34
от armenxxx1
1 Ответов
1493 Просмотров
Последний ответ Июль 05, 2015, 17:08:24
от joiner
0 Ответов
1187 Просмотров
Последний ответ Декабрь 21, 2015, 17:34:13
от Sverx
3 Ответов
2281 Просмотров
Последний ответ Сентябрь 20, 2017, 14:27:30
от InnI
4 Ответов
1441 Просмотров
Последний ответ Октябрь 17, 2017, 02:40:55
от Garrett
0 Ответов
390 Просмотров
Последний ответ Апрель 04, 2019, 20:45:36
от lu4schydrug