But now if you rename c:\epsendmail2 to c:\epsendmail or whatever it'll break again until you move the executable out and back into the renamed directory.
Next End If End With If blnSMTP Then SmtpMail.SmtpServer = Trim(strArgs( 4))Ĭonsole.WriteLine( " Successfully sent email message" + vbCrLf)Ĭonsole.WriteLine( " EXCEPTION " + err.Message + vbCrLf)Ĭ:\epsendmail2\epsendmail.exe test, test, Attachments.Add( New MailAttachment(Trim(strFile))) If blnAttachments Then Dim strFile As String Dim strAttach() As String = Split(strArgs( 6), " ") ' send the email Try Dim insMail As New MailMessage() StrMSG = strMSG + " Attachments -> " + Trim(strArgs( 6)) + _
StrMSG = strMSG + " CC -> " + Trim(strArgs( 5)) + _Įnd If End If If UBound(strArgs) >= 6 Then If Len(Trim(strArgs( 6))) > 0 Then StrMSG = strMSG + " SMTP Server -> " + Trim(strArgs( 4)) + _Įnd If End If If UBound(strArgs) >= 5 Then If Len(Trim(strArgs( 5))) > 0 Then If UBound(strArgs) >= 4 Then If Len(Trim(strArgs( 4))) > 0 Then " Message -> " + Trim(strArgs( 3)) + vbCrLf " Subject -> " + Trim(strArgs( 2)) + vbCrLf + _ " To -> " + Trim(strArgs( 1)) + vbCrLf + _ If UBound(strArgs) " + Trim(strArgs( 0)) + vbCrLf + _ Dim strMSG As String Dim strArgs() As String = Command.Split( " ,")ĭim blnSMTP As Boolean = False Dim blnCC As Boolean = False Dim blnAttachments As Boolean = False ' get the product name, version and description from the assembly
0 kommentar(er)
