ohh it is not sure. it is up to sentense. so i cannot know how long it is.

VB.Net

Dear Eddy, Thanks for you help. But now my problem now is that the hexadecimal is so long. mean that it is sentent so i want to convert that to the text. have any solving of that ?

VB.Net

thanks Eddy

VB.Net

Dear All, I have issue with the exhadecimal. I want to convert it to text by VB.net and FoxPro 6.0. But i do not know any thing about it. Do you have any idea or solving of this problem ? Thanks for your help...

VB.Net

Function SendEmail(ByVal mBody As String, ByVal mSubject As String, ByVal mFrom As String, ByVal mTo As String, Optional ByVal mCC As String = "", Optional ByVal mBCC As String = "", Optional ByVal pDisplayName As String = "", Optional ByVal pIsBodyHtml As Boolean = False, Optional ByVal pPriority As MailPriority = MailPriority.Normal, Optional ByVal AttPath As String = "") As Integer
Dim Mail As New System.Net.Mail.MailMessage
Dim counter As Integer = 0
Dim MailAddList() As String
Dim MailList As String

    Dim Smtp As New SmtpClient
    Try
        With Mail
            .From = New System.Net.Mail.MailAddress(mFrom.Trim, pDisplayName)
            '---- Insert Recepient mail(To) ----
            MailAddList = Split(mTo, ";")
            For Each MailList In MailAddList
                .To.Add(MailList)
            Next
            .Priority = pPriority
            .IsBodyHtml = pIsBodyHtml
            '---- Insert CC ----
            If mCC <> "" Then
                MailAddList = Split(mCC, ";")
                For Each MailList In MailAddList
                    '.To.Add(MailList)
                    .CC.Add(MailList)
                Next
            End If
            '---- Insert Bcc ----
            If mBCC <> "" Then
                '.Bcc.Add(mBCC.Trim)
                MailAddList = Split(mBCC, ";")
                For Each MailList In MailAddList
                    .Bcc.Add(MailList)
                Next
            End If
            .Subject = CStr(mSubject).Trim
            .Body = mBody.Trim
            .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            'Atach File
            AttFileName = New Attachment(AttPath)
            Mail.Attachments.Add(AttFileName)

        End With
        Smtp.Host = CStr("company.test.com.kh") 'It's replace the IP
        Smtp.Port = 25
        Dim myCredential As New System.Net.NetworkCredential("UserName", "Password")
        Smtp.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
        Smtp.Credentials = myCredential

        Smtp.Send(Mail)
        '----- Delay process 10seconds ------'
        System.Threading.Thread.Sleep(10000)
        '-----------------------------------'
        Return 0
    Catch ex As Exception
        ErrorMessage = ex

Thanks you Dave. I will try to test it again. If you have any new of that issue please let me know. Best regards

VB.Net

By the way i tested to send it. i got testing mail it was in Spam folder not into Inbox. why is like that? and when i test send to 7 or 8 customer with loop i did not get mail. What problem ?

VB.Net

I test manually that send to 2 email (yahoo, and gmail) and cc 1 email (our company mail) with attach file. When i check i got in gmail. around 5 or 6 hour i got in our company mail. But about yahoo i don't get it at all. I don't know that is issue. If have any solving please let me know. gold_sovann@yahoo.com Thanks

VB.Net

Dear All, I greated small application in VisualStudio2005 to send email with attach file to all my company's customer which take their email from database. So the sending mail process is in loop. I tested lot time . i change their mail to my mail and friends for test. When i click button "Send Mail" it process is complete but i and friend didn't get any mail. Note: our company has to usedd mail server as well. I created a Function like bellow: and Function bellow i imports name space or reference ready. What is issue of this prople? Please give me idea or solution. thanks Under is my function which created.

Function SendEmail(ByVal mBody As String, ByVal mSubject As String, ByVal mFrom As String, ByVal mTo As String, Optional ByVal mCC As String = "", Optional ByVal mBCC As String = "", Optional ByVal pDisplayName As String = "", Optional ByVal pIsBodyHtml As Boolean = False, Optional ByVal pPriority As MailPriority = MailPriority.Normal, Optional ByVal AttPath As String = "") As Integer
Dim Mail As New System.Net.Mail.MailMessage
Dim counter As Integer = 0
Dim MailAddList() As String
Dim MailList As String

    Dim Smtp As New SmtpClient
    Try
        With Mail
            .From = New System.Net.Mail.MailAddress(mFrom.Trim, pDisplayName)
            '---- Insert Recepient mail(To) ----
            MailAddList = Split(mTo, ";")
            For Each MailList In MailAddList
                .To.Add(MailList)
            Next
            .Priority = pPriority
            .IsBodyHtml = pIsBodyHtml
            '---- Insert CC ----
            If mCC <> "" Then
                MailAddList = Split(mCC, ";")
                For Each MailList In MailAddList
                    '.To.Add(MailList)
                    .CC.Add(MailList)
                Next
            End If
            '---- Insert Bcc ----
            If mBCC <> "" Then
                '.Bcc.Add(mBCC.Trim)
                MailAddList = Split(mBCC, ";")
                For Each MailList In MailAddList
                    .Bcc.Add(MailList)
                Next
            End If
            .Subject = CStr(mSubject).Trim
            .Body = mBody.Trim
            .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
            'Atach File
            AttFileName = New Attachment(AttPath)
            Mai

Thanks you so much Alan your suport. It is still warning that -> Warning D:Ready Sent\File1.zip not found or empty Adding VB.Net

Dear Alan yes it runs DOS. i tryed like your code and add -yp for showing DOS message: Shell("""C:\Program Files\WinZip\WZZIP.EXE"" -yp -u ""D:\Ready Sent\File1.zip D:\Source File\File Send.PDF""") the message showed that: Warning: D:\Ready Sent\File1.zip D:\Source File\File Send.PDF not found or empty Error: Could not creat output file Do you have any idea or solving else ?

VB.Net

try your code but it is still not support with space. Process.Start("C:\Program Files\WinZip\WZZIP.EXE", "-u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF") i add -yp it shows that: Warning: name not matched: Sent/File1.zip Warning: name not matched: D:/Source Warning: name not matched: File/File Warning: name not matched: Send.PDF Warning: D:\Ready.zip not found or empty Error: No files were found for this action that match your criteria - nothing to do. what about that problem ? Can you give me example ? or any else for solve that?

VB.Net

ohh becuase the first is similar the new one so i delete. ohh i tryed follow that your code shell(""""C:\Program Files\WinZip\WZZIP.EXE -u""" """D:\Ready Sent\File1.zip""" """D:\Source File\File Send.PDF"""") but it sitll can not work and get that syntax error. what about problem ?

VB.Net

Dear all, I use VB 2005 with shell comman for zip file. my task for zip is with space of folder name and file. So when i zip them. it was not successfull. It causes of space. that my source code: shell("C:\Program Files\WinZip\WZZIP.EXE -u D:\Ready Sent\File1.zip D:\Source File\File Send.PDF") Do you have any solve of this issue ? Thanks for your help...

VB.Net

modified on Friday, January 1, 2010 6:25 AM

[Message Deleted]

Thanks you so much it work well...

VB.Net

ohh maybe you don't undestand what i posted. I want to create folder not just print. you can test it. It is not acept with space.

VB.Net

Dear all, I have issue when i creat folder/condition with other foldername with space. In code bellow is i create foldername that with space Declare @ComMkDir varchar(100) (eg. C:\ComName\Test Folder Set @ComMkDir = 'mkDir ' + @ComComp EXEC master.dbo.xp_cmdshell @ComMkDir After create is just create "Test" folder. Thanks for your help...

VB.Net

thanks you so much.

VB.Net

thanks. the reason is that the data in backup to txt file so some have to rename, delete or create new. about Folder when delete it ask are you sure (Y/N)? how can type Y ?

VB.Net