Visual Basic

Public Sub EC(ByVal Err As Exception)
	Try
		Dim SW As New System.IO.StreamWriter("C:\error_log.txt", True)
		SW.WriteLine(Err.ToString)
		SW.Close()
	Catch ex As Exception
		appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)
	End Try
End Sub

Public Shared Function ManualMail(ByVal oFrom As String, ByVal oSubject As String, ByVal oTo As String, ByVal oText As String, Optional ByVal oCC As String = "", Optional ByVal oBCC As String = "", Optional ByVal oAttachment As Object = Nothing) As Boolean
    Dim mailmsg As New System.Web.Mail.MailMessage
    With mailmsg
        .BodyFormat = MailFormat.Html
        .From = oFrom
        .To = oTo
        If Not oCC = "" Then .Cc = oCC
        If Not oBCC = "" Then .Bcc = oBCC
        .Subject = oSubject
        .Body = oText
        If Not oAttachment = Nothing Then .Attachments.Add(oAttachment)
    End With
    Try
        System.Web.Mail.SmtpMail.SmtpServer = SmtpServerAddressHere 'example: mail.domain.com
        System.Web.Mail.SmtpMail.Send(mailmsg)
        Return True
    Catch ex As Exception
        appLog.WriteEntry(ex.ToString, EventLogEntryType.Error)
        Return False
    End Try
End Function

for i=0 to 10<br />
listbox1.Items.Add i<br />
<br />
Next

Member 4216960 wrote:

It's important to me point out the error and have a compiled version