Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.js

Visual Basic 6.0 Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks

 

 

 

 

 

 

 

(Visual Basic 6.0) Getting TO / CC Email Recipients

Demonstrates how to examine the TO and CC recipients of an email.

Note: BCC recipients are generally NOT found in the email's MIME. "BCC" is a "Blind Carbon Copy", which means that the TO and CC recipients of the email should not be able to see the BCC recipients. If the BCC email addresses were found in the MIME header, then they would no longer be "blind" because nothing would prevent the other recipients from seeing the list of BCC recipients.

To understand how BCC recipients receive an email, I recommend reading this blog post: SMTP Protocol in a Nutshell. The BCC recipients are passed to the SMTP server in “RCPT TO” commands.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

'  An email can have any number of To, CC, or Bcc recipients.
Dim email As New ChilkatEmail

Dim success As Long

success = email.LoadEml("sample.eml")
If (success <> 1) Then
    Text1.Text = Text1.Text & email.LastErrorText & vbCrLf
    Exit Sub
End If

'  It doesn't matter if the email object was loaded from a .eml file,
'  or if it was downloaded from a POP3 or IMAP server.
'  The methods and properties for examining the TO and CC
'  recipients are the same.
Dim i As Long

'  The number of TO recipients is found in the NumTo property
Dim numTo As Long
numTo = email.NumTo

'  Iterate over each TO recipient
If (numTo > 0) Then
    For i = 0 To numTo - 1
        Text1.Text = Text1.Text & "TO Friendly Name and Address: " & email.GetTo(i) & vbCrLf
        Text1.Text = Text1.Text & "TO Address: " & email.GetToAddr(i) & vbCrLf
        Text1.Text = Text1.Text & "TO Friendly Name: " & email.GetToName(i) & vbCrLf
        Text1.Text = Text1.Text & "---" & vbCrLf
    Next
End If

'  The number of CC recipients is found in the NumCC property
Dim numCC As Long
numCC = email.NumCC

'  Iterate over each CC recipient
If (numCC > 0) Then
    For i = 0 To numCC - 1
        Text1.Text = Text1.Text & "CC Friendly Name and Address: " & email.GetCC(i) & vbCrLf
        Text1.Text = Text1.Text & "CC Address: " & email.GetCcAddr(i) & vbCrLf
        Text1.Text = Text1.Text & "CC Friendly Name: " & email.GetCcName(i) & vbCrLf
        Text1.Text = Text1.Text & "---" & vbCrLf
    Next
End If


 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.