Send Greek Email in Visual Basic

Download Chilkat Email ActiveX

This VB sample program demonstrates how to send email using Greek (Windows-1253) characters.

Private Sub Command1_Click()

    ' Create a mailman for sending.
    Dim mailman As New ChilkatMailMan2
    
    ' Anything begins the 30-day trial.
    mailman.UnlockComponent "UnlockCode"
    
    ' Set your SMTP server.
    mailman.SmtpHost = "smtp.earthlink.net"
    
    ' Create the email to be sent.
    Dim email As New ChilkatEmail2
    
    ' Load a Unicode text file containing text specific to the language you want.
    ' Alternatively, you might read Unicode strings from a relational database...
    Dim myUnicodeText As String
    ' Edit this line to load one of the text files provided in the download.
    myUnicodeText = email.LoadTextFileToUnicode("unicodeText.txt", "unicode")
    
    email.AddTo "Matt", "matt@chilkatsoft.com"
    email.Subject = myUnicodeText
    email.From = "support@chilkatsoft.com"
        
    email.Body = myUnicodeText
    
    ' Uncomment one of the following to specify the charset.
    ' Czech = 1250
    email.Charset = "windows-1250"
    ' Cyrillic = 1251
    'email.Charset = "windows-1251"
    ' Greek = 1253
    'email.Charset = "windows-1253"
    ' Turkish = 1254
    'email.Charset = "windows-1254"
    ' Hebrew = 1255
    'email.Charset = "windows-1255"
    ' Arabic = 1256
    'email.Charset = "windows-1256"
    ' Baltic = 1257
    'email.Charset = "windows-1257"
        
    email.SaveEml "email.txt"
    
    ' Send the mail.
    success = mailman.SendEmail(email)
    If (success = 0) Then
        MsgBox mailman.LastErrorText
        mailman.SaveLastError "log.xml"
    Else
        MsgBox "Message Sent!"
    End If
    
End Sub