Отправить файл на почту

@Волшебник 307 · Регистрация: 16.04.2013

Author24 — интернет-сервис помощи студентам

Памирыч,
Пробую отправить файл txt. к себе на почту.
Использую этот код.

Отправка почты с вложением с компьютера с русскоязычным именем
https://www.cyberforum.ru/post1923507.html

Вот этот блок мне непонятен.

VB.NET

            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = "Сервер SMTP, например, smtp.mail.ru"
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = ", например, [email]myaccount@mail.ru[/email]"
                .Item(v_Conf & "sendpassword") = ", например, 0123456789"
                .Item(v_Conf & "smtpserverport") = 25
                .Item(v_Conf & "smtpusessl") = False
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update()
            End With

-------------------------------------------
Откуда берется этот
smtp.mail.ru, myaccount@mail.ru, и пароль.
Или мне надо его самому придумать?

Без них возникает ошибка на строке

VB.NET

.send()

-------------------------------------------
Никак не получается
отправить файл на почту.

Добавлено через 1 час 37 минут
Кажется разобрался,
Тут нужно указывать два email-адреса.
---------------------------------------
Я отправляю с yandex на gmail.

smtp.mail.ru в моём случае это smtp.yandex.ru,
myaccount@mail.ru - это моя почта на яндексе,
и пароль - это пароль от почты яндекса.
-----------------------------------------------
Вроде всё понятно.
Но вот вопрос. Обязательно заводить два ящика?
Можно ли обойтись одним,
на который отправляешь письмо с вложением?

Памирыч · 29.08.2014, 06:05

Сообщение от Волшебник 307

Или мне надо его самому придумать?

Это должен быть реальный ящик.

Сообщение от Волшебник 307

Тут нужно указывать два email-адреса.

Необязательно, можно использовать один адрес.
Покажите код, если до сих пор не работает

@Волшебник 307 · 29.08.2014, 07:21 **[ТС]**

Памирыч,
Код работает,
но хотелось бы узнать
как один адрес использовать

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o_Mess As Object, v_Conf As String
        o_Mess = CreateObject("CDO.Message")
        v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
        o_Mess.BodyPart.CharSet = "Windows-1251"
        With o_Mess
            .To = "307cwam@gmail.com"
            .From = "mark-307@yandex.ru"
            .Subject = "Тема письма, например, Привет"
            .TextBody = "Текст письма, например, За последнее время участились случаи..."
            .AddAttachment("C:\Program Files (x86)\307CW\Err.log")
            '.AddAttachment("Вложение2")
            '.AddAttachment("Вложение3")
            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = "smtp.yandex.ru"
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = "mark-307@yandex.ru"
                .Item(v_Conf & "sendpassword") = "пароль"
                .Item(v_Conf & "smtpserverport") = 25
                .Item(v_Conf & "smtpusessl") = False
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update()
            End With
            .send()
        End With
    End Sub

Памирыч · 29.08.2014, 07:35

Если Вы будете отправлять письма с gmail, то SMTP сервер надо будет менять, там у Вас прописан Яндексовский

Для джимейла уточняйте настройки и прописывайте верный SMTP, и при необходимости, порт

@~~ouou~~ · 29.08.2014, 07:40

SMTP-сервер должен быть того почтового сервиса, на котором создан ящик отправителя.
Узнать имя сервера SMTP (и порт тоже) можно на сайте почтового сервиса.

@Волшебник 307 · 29.08.2014, 10:15 **[ТС]**

Спасибо!
Вот так у меня получилось.
---------------------------

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim o_Mess As Object, v_Conf As String
        o_Mess = CreateObject("CDO.Message")
        v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
        o_Mess.BodyPart.CharSet = "Windows-1251"
        With o_Mess
            .To = "307cwam@gmail.com"
            .From = "307cwam@gmail.com"
            .Subject = "Тема письма, например, Привет"
            .TextBody = "Текст письма, например, За последнее время участились случаи..."
            .AddAttachment("C:\Program Files (x86)\307CW\Sql.txt")
            '.AddAttachment("Вложение2")
            '.AddAttachment("Вложение3")
            With .Configuration.Fields
                .Item(v_Conf & "sendusing") = 2
                .Item(v_Conf & "smtpserver") = "smtp.gmail.com"
                .Item(v_Conf & "smtpauthenticate") = 1
                .Item(v_Conf & "sendusername") = "307cwam@gmail.com"
                .Item(v_Conf & "sendpassword") = "пароль"
                .Item(v_Conf & "smtpserverport") = 25
                .Item(v_Conf & "smtpusessl") = True
                .Item(v_Conf & "smtpconnectiontimeout") = 60
                .Update()
            End With
            .send()
        End With
    End Sub

Отправить файл на почту

Решение

Решение

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	29.08.2014, 06:05	2
	Сообщение от Волшебник 307 Или мне надо его самому придумать? Это должен быть реальный ящик. Сообщение от Волшебник 307 Тут нужно указывать два email-адреса. Необязательно, можно использовать один адрес. Покажите код, если до сих пор не работает 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	29.08.2014, 07:35	4
	Сообщение было отмечено Памирыч как решение Решение Если Вы будете отправлять письма с gmail, то SMTP сервер надо будет менять, там у Вас прописан Яндексовский Для джимейла уточняйте настройки и прописывайте верный SMTP, и при необходимости, порт 1

@~~ouou~~ Заблокирован
	29.08.2014, 07:40	5
	SMTP-сервер должен быть того почтового сервиса, на котором создан ящик отправителя. Узнать имя сервера SMTP (и порт тоже) можно на сайте почтового сервиса. 0

	29.08.2014, 10:15