J. Scott Elblein
Well-known member
Hello again all
I have Thunderbird setup to use a gmail account, so I know I have the correct SMTP info, and sending emails in TB is no problem.
However, when I try to use the same info in my own .NET app, I just get a real long pause when attempting to email something, and finally an Operation Timed Out message. I was wondering if anyone has experience with this and can point out what I may be missing? The mail code itself is working fine if I use my own personal ISP's SMTP server without SSL, but I can't use my own personal one under the circumstances.
Here is the code that I am using:
TIA
I have Thunderbird setup to use a gmail account, so I know I have the correct SMTP info, and sending emails in TB is no problem.
However, when I try to use the same info in my own .NET app, I just get a real long pause when attempting to email something, and finally an Operation Timed Out message. I was wondering if anyone has experience with this and can point out what I may be missing? The mail code itself is working fine if I use my own personal ISP's SMTP server without SSL, but I can't use my own personal one under the circumstances.
Here is the code that I am using:
VB.NET:
Imports Microsoft.VisualBasic
Imports System.net.Mail
Public Class SendEmail
Public Sub SendEmailMessage(ByVal strFrom As String, ByVal strTo() _
As String, ByVal strSubject _
As String, ByVal strMessage _
As String, ByVal fileList() _
As String, ByVal intProgbar _
As Integer, ByVal strSMTPServer As String)
'This procedure takes string array parameters for multiple recipients and files
Try
For Each item As String In strTo
'For each To address create a mail message
Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(item))
MailMsg.BodyEncoding = System.Text.Encoding.Default
MailMsg.Subject = strSubject.Trim()
MailMsg.Body = strMessage.Trim() & vbCrLf
MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = True
'attach each file attachment
For Each strfile As String In fileList
If Not strfile = "" Then
Dim MsgAttach As New Attachment(strfile)
MailMsg.Attachments.Add(MsgAttach)
End If
Next
'Smtpclient to send the mail message
Dim SmtpMail As New SmtpClient
' Is this in the correct place (used to login to SMTP server)
Dim theCredential As New System.Net.NetworkCredential(frmMain.txtLogin.Text, frmMain.txtPW.Text)
SmtpMail.EnableSsl = True
SmtpMail.Port = 465
SmtpMail.Credentials = theCredential
SmtpMail.Host = strSMTPServer
SmtpMail.Send(MailMsg)
Next
' Message Successful
Catch ex As Exception
' Message Error
'Console.Clear()
Console.WriteLine(ex.Message)
Console.WriteLine(ex.InnerException)
End Try
MessageBox.Show("Complete!")
End Sub
End Class
TIA