Отправка почты

[Dmitriy Solomnikov]

Надо програмно отправлять почту через Exchange. Полазил в нете - понял, что во фрейморке (1.1) нет такой возможности. Народ пользуется CDO.

Соответственно вопрос - нет ли у кого инфы как пользоваться этой библиотекой - что дложно стоять на компе, что и откуда импортировать?

И еще - может есть полезные ссылочки? на статейку какую? или код?



А вообще основная задача - отправлять письма без SMTP, т.к. в домене поднят Exchange.

[Sebas]

-Сохраняй сообщения в PickUpDirectory

-Подключить COM CDO 1.2 ? создать Message, забить свойства, .Send.

-Шо значит без Smtp ?

[Dmitriy Solomnikov]

Сохраняй сообщения в PickUpDirectory
-Подключить COM CDO 1.2 ? создать Message, забить свойства, .Send.
-Шо значит без Smtp ?

В моей подсети косяк какой-то - не могу достучаться до smtp-сервера. Но, поскольку почтой я пользуюсь значит есть возможность работать с ней по другим протоколам.

Вот сижу и парюсь уже пол дня.


PS: сильно только не пинайте, я с почтой пока не работал... тк что не всегда понимаю, что шаманю ))

[Sebas]

В моей подсети косяк какой-то - не могу достучаться до smtp-сервера

Может проще разобраться с доступом к серверу? Если Вы отправляете не через SMTP, то через RPC Exchange аккаунт. Правильно? Из Нет, я думаю, это будет сделать проблемматично...

[Dmitriy Solomnikov]

В моей подсети косяк какой-то - не могу достучаться до smtp-сервера

Может проще разобраться с доступом к серверу? Если Вы отправляете не через SMTP, то через RPC Exchange аккаунт. Правильно? Из Нет, я думаю, это будет сделать проблемматично...

Это полохо, потому что рзобраться никак не получится - пару раз пробовали и безрезультатно, хоть сам садись маршруты смотри...

[student-uni]

Был где то пример - там в SMTP чудак прописал localhost,
многие файрволлы пропускали.

[Sebas]

Был где то пример - там в SMTP чудак прописал localhost,
многие файрволлы пропускали.

Господа, Вы хоть отдаёте себе отчёт в том, что пишете?

[Sebas]

Dmitriy Solomnikov

Неужели так всё сложно? Прикопать админа.

[student-uni]

Вот как на втором!! фреймворке можно отправлять почту не прописывая SMTP

Код: Выделить всё

Private Sub MailSend()

     

        Dim filePath As String = Path.Combine(System.Environment.CurrentDirectory, strAttachFileName) 'Private

        Dim fileStream As FileStream = Nothing




        Try
            Dim settings() As Object = New Object() {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox10.Text, TextBox8.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, ComboBox2.SelectedIndex}
            Dim formatter As New BinaryFormatter
            fileStream = File.Open(filePath, FileMode.Create)
            formatter.Serialize(fileStream, settings)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            If fileStream IsNot Nothing Then fileStream.Close()
        End Try



        VersandStatusOK = False

        Dim strBody As String
        strBody = "bla bla," _
+ " " + Chr(10) + Chr(13) _
+ Chr(10) + Chr(13)


        Dim message As MailMessage



        If System.Environment.MachineName.ToString = "myPC" Then

            message = New MailMessage(TextBox7.Text, "myMail@mail.ru", "About", strBody)
        Else
            message = New MailMessage(TextBox7.Text, "myMail@mail.ru", "About", strBody)
        End If




        Dim data As Attachment = New Attachment(strAttachFileName)
       



        message.Attachments.Add(data)






        Dim myClient As New Net.Mail.SmtpClient()

        myClient.Host = "localhost"

        myClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.PickupDirectoryFromIis


        Try
           
            myClient.Send(message)

            MessageBox.Show("Bla Bla", _
                  "Status", _
                 MessageBoxButtons.OK, MessageBoxIcon.Information)
            VersandStatusOK = True '
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Error", _
                  MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            VersandStatusOK = False 'ex.Message
        End Try






    End Sub


[Sebas]

student-uni
http://bbs.vbstreets.ru/viewtopic.php?p=6641328#6641328

[Dmitriy Solomnikov]

Dmitriy Solomnikov
Неужели так всё сложно? Прикопать админа.

Да себас - совсем не просто. Я их уже год топчу - только толку мало. административный ресурс тоже не работает .

Вроде сделал через CDO+Redemption, но пока кривовато работает - вернее работает только у меня )). На тестовой машине выдает COMException - "COM Object with CLSID ... is ither not valid or not regidtred".

Интересно на какую он библу из двух ругается ругается

[lord0n]

ну тогда логично принести на машину эти 2 библы и подключить их

[Dmitriy Solomnikov]

не! так и сделал - видимо она registred но не valid.

PS: Outlook там стоит и даже настроен.

[lord0n]

ну тогда положи эти лайбы в одну директорию со своей прогой

[Dmitriy Solomnikov]

ну тогда положи эти лайбы в одну директорию со своей прогой

и это тоже было... результат тот же

[lord0n]

ну тогда положи эти лайбы в одну директорию со своей прогой

и это тоже было... результат тот же

Хммммммммм, странно, у меня вроде сразу начинает работать

[Dmitriy Solomnikov]

Хммммммммм, странно, у меня вроде сразу начинает работать

А можешь для сравнения кодом поделиться? Я просто делал с использованием Redemption - валится именно он. Если у тебя есть реализация без его использования - было бы очень не полохо.