Comments by Member 13999803

Member 13999803 14-Feb-19 3:03am View

ya got it.it works fine.thank u so much

Member 13999803 14-Feb-19 2:40am View

may i know the port name?

Member 13999803 12-Feb-19 5:25am View

how to know my smtp host name in my laptop????

Member 13999803 12-Feb-19 3:47am View

mailClient.Send(Email);
in this line it showing failure sending mail

Member 13999803 7-Feb-19 4:03am View

<?xml version="1.0"?>

<configuration>

<configsections>
<sectionGroup name="system.web.extensions" type="System.Web.Configuration.SystemWebExtensionsSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">
<sectionGroup name="scripting" type="System.Web.Configuration.ScriptingSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">

<sectionGroup name="webServices" type="System.Web.Configuration.ScriptingWebServicesSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">

<system.web>
<compilation debug="true">
<assemblies>
<add assembly="System.Core, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
<add assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add assembly="System.Xml.Linq, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
<add assembly="System.Data.DataSetExtensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
<add assembly="System.Web.Extensions.Design, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add assembly="System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A"/>
<add assembly="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>

<customErrors mode="RemoteOnly" defaultRedirect="index.htm"/>
<pages>
<controls>
<add tagPrefix="asp" namespace="System.Web.UI" assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add tagPrefix="asp" namespace="System.Web.UI.WebControls" assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>

<httphandlers>
<remove verb="*" path="*.asmx"/>
<add verb="*" path="*.asmx" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add verb="*" path="*_AppService.axd" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add verb="GET,HEAD" path="ScriptResource.axd" validate="false" type="System.Web.Handlers.ScriptResourceHandler, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>

<httpmodules>
<add name="ScriptModule" type="System.Web.Handlers.ScriptModule, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>

<connectionstrings>
<add name="MyConnection" connectionString="Data Source=localhost;Initial Catalog=FMSDB;User ID=brains1;Password=horizon@321" providerName="System.Data.SqlClient" />

<system.codedom>
<compilers>
<compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CSharp.CSharpCodeProvider,System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" warningLevel="4">
<providerOption name="CompilerVersion" value="v3.5"/>
<providerOption name="WarnAsError" value="false"/>

<compiler l

Member 13999803 28-Sep-18 3:41am View

Imports System
Imports System.Data
Imports System.Net
Imports System.IO

Public Class SendMsg
Public Shared connectionURL As String = String.Empty
Public Shared username As String = String.Empty
Public Shared password As String = String.Empty
Public Shared type As String = String.Empty
Public Shared dlr As String = String.Empty
Public Shared source As String = String.Empty
Public Shared CompleteURL As String = String.Empty
Public Shared HistPath As String = String.Empty
Public Shared Statuscode As HttpWebResponse
''' <summary>
''' Initialize connectionURL
''' 0
''' <param name="URI">
''' <remarks>
Public Shared Sub SetURL(ByVal URI As String, ByVal usernam As String, ByVal pswd As String, ByVal tp As String, ByVal dl As String, ByVal src As String, ByVal histp As String)
connectionURL = URI
username = usernam
password = pswd
type = tp
dlr = dl
source = src
HistPath = histp
End Sub
''' <summary>
''' Sending Message
'''
''' <param name="Dest">
''' <param name="msg">
''' <remarks>
Public Shared Sub StartMsgSend(ByVal Dest As String, ByVal msg As String)
'Dim SourceStream As System.IO.Stream
'Dim myRequest As System.Net.WebRequest = WebRequest.Create(connectionURL)
'myRequest.Credentials = CredentialCache.DefaultCredentials
'Dim webResponse As WebResponse = myRequest.GetResponse
'SourceStream = webResponse.GetResponseStream()
'Dim reader As StreamReader = New StreamReader(webResponse.GetResponseStream())
CompleteURL = connectionURL + "?username=" + username + "&password=" + password + "&type=" + type + "&dlr=" + dlr + "&destination=" & Dest & "&source=" + source + "&message=" & msg & ""

''CompleteURL = connectionURL + "?loginID=" + username + "&password=" + password + "&mobile=" & Dest & "&text=" & msg & "&senderid=" + source + "&route_id=" + type + "&Unicode=" + dlr + ""

Try
' Creates an HttpWebRequest with the specified URL.
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(CompleteURL), HttpWebRequest)
' Sends the request and waits for a response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Statuscode = myHttpWebResponse
If myHttpWebResponse.StatusCode = HttpStatusCode.OK Then
writexcel(Dest, msg, "S", myHttpWebResponse.StatusDescription.ToString)
Else
writexcel(Dest, msg, "E", myHttpWebResponse.StatusDescription.ToString)
End If
' Release the resources of the response.
myHttpWebResponse.Close()

Catch e As WebException
writexcel(Dest, msg, "E", e.Message)
Catch e As Exception
writexcel(Dest, msg, "E", e.Message)
End Try

End Sub

Public Shared Sub writexcel(ByVal destination As String, ByVal messg As String, ByVal typ As String, ByVal errormsg As String)
Try
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim myCommand As New System.Data.OleDb.OleDbCommand
Dim sql As String

MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.4.0;Data Source='" + HistPath + "\Message_History.xls';Extended Properties=Excel 8.0;")

MyConnection.Open()
myCommand.Connection = MyConnection
If (typ = "S") Then
sql = "Insert into [Success$] values('" & destination & "','" & messg & "','" & errormsg & "','" & System.DateTime.Now & "')"
Else
sql = "Insert

Member 13999803 28-Sep-18 3:41am View

Imports System
Imports System.Data
Imports System.Net
Imports System.IO

Public Class SendMsg
Public Shared connectionURL As String = String.Empty
Public Shared username As String = String.Empty
Public Shared password As String = String.Empty
Public Shared type As String = String.Empty
Public Shared dlr As String = String.Empty
Public Shared source As String = String.Empty
Public Shared CompleteURL As String = String.Empty
Public Shared HistPath As String = String.Empty
Public Shared Statuscode As HttpWebResponse
''' <summary>
''' Initialize connectionURL
''' 0
''' <param name="URI">
''' <remarks>
Public Shared Sub SetURL(ByVal URI As String, ByVal usernam As String, ByVal pswd As String, ByVal tp As String, ByVal dl As String, ByVal src As String, ByVal histp As String)
connectionURL = URI
username = usernam
password = pswd
type = tp
dlr = dl
source = src
HistPath = histp
End Sub
''' <summary>
''' Sending Message
'''
''' <param name="Dest">
''' <param name="msg">
''' <remarks>
Public Shared Sub StartMsgSend(ByVal Dest As String, ByVal msg As String)
'Dim SourceStream As System.IO.Stream
'Dim myRequest As System.Net.WebRequest = WebRequest.Create(connectionURL)
'myRequest.Credentials = CredentialCache.DefaultCredentials
'Dim webResponse As WebResponse = myRequest.GetResponse
'SourceStream = webResponse.GetResponseStream()
'Dim reader As StreamReader = New StreamReader(webResponse.GetResponseStream())
CompleteURL = connectionURL + "?username=" + username + "&password=" + password + "&type=" + type + "&dlr=" + dlr + "&destination=" & Dest & "&source=" + source + "&message=" & msg & ""

''CompleteURL = connectionURL + "?loginID=" + username + "&password=" + password + "&mobile=" & Dest & "&text=" & msg & "&senderid=" + source + "&route_id=" + type + "&Unicode=" + dlr + ""

Try
' Creates an HttpWebRequest with the specified URL.
Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(CompleteURL), HttpWebRequest)
' Sends the request and waits for a response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
Statuscode = myHttpWebResponse
If myHttpWebResponse.StatusCode = HttpStatusCode.OK Then
writexcel(Dest, msg, "S", myHttpWebResponse.StatusDescription.ToString)
Else
writexcel(Dest, msg, "E", myHttpWebResponse.StatusDescription.ToString)
End If
' Release the resources of the response.
myHttpWebResponse.Close()

Catch e As WebException
writexcel(Dest, msg, "E", e.Message)
Catch e As Exception
writexcel(Dest, msg, "E", e.Message)
End Try

End Sub

Public Shared Sub writexcel(ByVal destination As String, ByVal messg As String, ByVal typ As String, ByVal errormsg As String)
Try
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim myCommand As New System.Data.OleDb.OleDbCommand
Dim sql As String

MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.4.0;Data Source='" + HistPath + "\Message_History.xls';Extended Properties=Excel 8.0;")

MyConnection.Open()
myCommand.Connection = MyConnection
If (typ = "S") Then
sql = "Insert into [Success$] values('" & destination & "','" & messg & "','" & errormsg & "','" & System.DateTime.Now & "')"
Else
sql = "Insert

Member 13999803 28-Sep-18 3:39am View

By changing jet to ace there isan error like System.Data.Oledb.OleDbexception:themicrosoft office access database engine could not find the object 'Success$'

Member 13999803 28-Sep-18 3:36am View

By changing jet to ace there isan error like System.Data.Oledb.OleDbexception:themicrosoft office access database engine could not find the object 'Success$'

Comments by Member 13999803 (Top 9 by date)