জিমেইল ব্যবহার করে ইমেইল প্রেরণ একটি সময় আউট ত্রুটি দেয়

আমরা একটি ফর্ম থেকে Gmail ব্যবহার করে ইমেল বার্তা পাঠাতে কিছু কোড পরীক্ষা করছি, কিন্তু একটি সময় আউট ত্রুটি পেতে

আপনি কি এই কোড থেকে অনুপস্থিত ইমেইল বার্তা প্রেরণ পেতে অনুপস্থিত করতে পারেন?

    Try
        Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()

        SmtpServer.EnableSsl = True
        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "MyPasswordGoesHere")
        SmtpServer.Port = 465
        SmtpServer.Host = "smtp.gmail.com"

        mail.From = New MailAddress("[email protected]")
        mail.To.Add("[email protected]")
        mail.Subject = "Test Mail"
        mail.Body = "This is for testing SMTP mail from GMAIL"

        SmtpServer.Send(mail)

        MsgBox("mail sent")

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

হালনাগাদ: MailBee ব্যবহার করে কোড পরিবর্তন এইভাবে আমরা সব গ্রাহকদের ইমেল করছি:

    Dim strSqlStatement As String = "Select CustomerName, Email " & _
                               "From Customers " & _
                              "Where Email Is Not Null"
    If IsConnected() Then

        ' Set up the sql command and lookup the parent.
        '----------------------------------------------
        Using objSqlCommand As SqlCommand = New SqlCommand(strSqlStatement, ObjConnection)

            With objSqlCommand

                ' Open the SqlConnection before executing the query.
                '---------------------------------------------------
                Cursor = Cursors.WaitCursor

                ObjConnection.Open()

                Dim objDataReader As SqlDataReader = .ExecuteReader()

                ' Go through all the customers and send out the promotion emails.
                '----------------------------------------------------------------
                If objDataReader.HasRows Then

                    MailBee.Global.LicenseKey = "My license key goes here."

                    Dim objSMTP As New Smtp
                    Dim server As New SmtpServer(TextBoxSMTPServer.Text, TextBoxUserName.Text, TextBoxPassword.Text)

                    'SmtpServer.Host = TextBoxSMTPServer.Text
                    'SmtpServer.Port = TextBoxPort.Text
                    'SmtpServer.Timeout = 100

                    'If TextBoxUseSSL.Text = "Yes" Then
                    '    SmtpServer.EnableSsl = True
                    'Else
                    '    SmtpServer.EnableSsl = False
                    'End If

                    'If TextBoxUseDefaultCredentials.Text = "Yes" Then
                    '    SmtpServer.UseDefaultCredentials = True
                    'Else
                    '    SmtpServer.UseDefaultCredentials = False
                    'End If

                    'SmtpServer.Credentials = New Net.NetworkCredential(TextBoxUserName.Text, TextBoxPassword.Text)


                    objSMTP.SmtpServers.Clear()
                    objSMTP.SmtpServers.Add(server)

                    While objDataReader.Read()
                        If objDataReader("Email").ToString <> "" Then

                            objSMTP.Message.From.AsString = TextBoxEmailFrom.Text
                            objSMTP.Message.To.AsString = objDataReader("Email").ToString
                            objSMTP.Message.Subject = "Promotion: " & TextBoxID.Text
                            objSMTP.Message.BodyPlainText = "Dear " & objDataReader("CustomerName") & "," & vbCrLf & vbCrLf & TextBoxPromotionBodyText.Text

                            Try
                                objSMTP.Send()

                            Catch exBadPassword As MailBeeSmtpLoginBadCredentialsException
                                MsgBox("The login name or password is not correct.", MsgBoxStyle.Exclamation, "Email")
                                blnThereWereErrors = True

                            Catch exBadFromAddress As MailBeeSmtpRefusedSenderException
                                MsgBox("The sender email must be the same as the user's email address.", MsgBoxStyle.Exclamation, "Email")
                                blnThereWereErrors = True

                            Catch ex As Exception
                                MsgBox(ex.Message)
                                blnThereWereErrors = True
                            End Try
                        End If

                        If blnThereWereErrors Then
                            Exit While
                        End If
                    End While

                    If blnThereWereErrors = False Then
                        MessageBox.Show("Mass emailing has completed." & vbCrLf, _
                                "Email Message.", _
                                MessageBoxButtons.OK, _
                                MessageBoxIcon.Information)
                    End If
                End If

                objDataReader.Close()
                ObjConnection.Close()

                Cursor = Cursors.Default
            End With ' objSqlCommand
        End Using ' objSqlCommand
11
যোগ সম্পাদিত
মতামত: 1
উত্তর দেওয়ার জন্য ধন্যবাদ. আমি এটি চেষ্টা কিন্তু এটা এখনও বার আউট।
যোগ লেখক Emad-ud-deen, উৎস
উত্তর জন্য ধন্যবাদ kcbeard আমি smtp.gmail.com চেষ্টা করেছিলাম টেলিফোনে 465 এবং এটি দেখানো আটকে যায় বলে মনে হচ্ছে: smtp.gmail.com সাথে সংযোগ স্থাপন করা হচ্ছে ... এবং শুধু একটি ঝলকানি কার্সর দেখাচ্ছে তারপর এটি: হোস্ট হোস্ট সংযোগ। আমি towel.blinkenlights.nl সাথে সংযোগ করতে সক্ষম ছিল এবং যে কাজ। জিমেইলের সাথে সমস্যা আছে কিনা তা নিশ্চিত নন। আমি আমার ইমেইল ক্লায়েন্ট সফটওয়্যারে কোনও সমস্যা ছাড়াই সব সময় জিমেইল ব্যবহার করি। আমি কি আমার ফর্ম ব্যবহার করতে পারি যে ইমেলের সাথে কাজ করে এমন একটি ওপেন সোর্স নিয়ন্ত্রণ আছে?
যোগ লেখক Emad-ud-deen, উৎস
আমি এটি একটি অন্য ইমেইল সার্ভার ব্যবহার করে কাজ পেতে সক্ষম ছিল। নিশ্চিত নই যে কেন Gmail এর সাথে একটি সমস্যা আছে।
যোগ লেখক Emad-ud-deen, উৎস
আমি একটি ম্যাক নেভিগেশন উইন্ডোজ চলমান একটি সমান্তরাল ভার্চুয়াল মেশিন কাজ করছি আমি bluebottle.com ব্যবহার করে এটিকে ইমেইল সার্ভার হিসেবে পুরোপুরিভাবে কাজ করে। কমপক্ষে আমি জানি কোড কাজ করে।
যোগ লেখক Emad-ud-deen, উৎস
আমরা MailBee ব্যবহার করে চেষ্টা করেছি এবং সব ইমেল সমস্যাগুলি অদৃশ্য হয়ে গেছে। নিশ্চিত নই কেন কিন্তু আমি এটি পোর্ট সংখ্যা মাধ্যমে চক্র মনে এবং সেরা এক খুঁজে পেতে খুঁজে বের করে। আমি মেলবিকে ব্যবহারে দেখানোর জন্য পোস্টে কোডটি আপডেট করছি
যোগ লেখক Emad-ud-deen, উৎস
কোড ভাল দেখায়। হয়তো এটি একটি UAC সমস্যা?
যোগ লেখক Keith Beard, উৎস
ব্যাপারটি আসলে একটি কমান্ড লাইন টেলনেট smtp.gmail.com 465 এর মাধ্যমে সংযোগ করার চেষ্টা করে, যদি আপনি ব্যবহার ডিফল্টক্রডেনশিয়াল সেটিংসের চেয়ে বেশি সংযোগ করতে পারেন = মিথ্যা
যোগ লেখক Keith Beard, উৎস
আমি সম্ভবত এটি Google অনুমান করছি, এটি অদ্ভুত যে ঘটেছে। আপনি কোন ধরনের পরিবেশে কাজ করছেন। আপনি কি কোনও ফায়ারওয়াল বা কিছু প্রকারের হার্ড ডিউটি ​​আছে?
যোগ লেখক Keith Beard, উৎস

2 উত্তর

একটি ভিন্ন পোর্ট সংখ্যা ব্যবহার করে দেখুন আপনি System.Net.Mail দিয়ে পোর্ট 465 ব্যবহার করতে পারবেন না কারণ এটি কেবল "স্পষ্ট SSL" সমর্থন করে। এই বিষয়ে আরো তথ্যের জন্য এই পৃষ্ঠা দেখুন।

পোর্ট 465 পোর্ট ব্যবহার করে VB.NET এর মাধ্যমে মেইল ​​প্রেরণ করার সময় জিমেইল পোর্ট 25 বা 587 গ্রহণ করবে।

Also make sure you have UseDefaultCredentials = False

এছাড়াও সি # এর GMail ব্যবহার করে কিভাবে মেল পাঠাতে তা এই উদাহরণ দেখুন। এটি আপনাকে আরো কিছু সূত্র দিতে পারে।

14
যোগ
সাহায্যের জন্য ধন্যবাদ. :-)
যোগ লেখক Emad-ud-deen, উৎস
হ্যাঁ, পোর্ট 465 ব্যবহার করার সময় আমি একই সমস্যা ছিল। আমি 587 ব্যবহার করে এটি সংশোধন করেছি
যোগ লেখক Yohannis, উৎস

আমারও একই সমস্যা ছিল, আমার ক্ষেত্রে আমি প্রোটোকল নির্দিষ্ট করতে ভুলে গিয়েছিলাম, তাই smtp.gmail.com এর পরিবর্তে আমাকে ssl: //smtp.gmail.com লিখতে হয়েছিল

1
যোগ