|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Send Email and Save Copy to "Sent" Mailbox
Sends an email and places a copy in the "Sent" mailbox on an IMAP server. This example demonstrates how to send an email and then upload a copy to an IMAP mail server's "Sent" mailbox. Note: You may need to create a "Sent" mailbox on your IMAP server prior to running this example. You may already have a mailbox named something different -- perhaps "Sent Items". Important: If your mail server is POP3, the "Sent Items" mailbox is actually a file on your local computer managed by your email client, such as Outlook, Mozilla Thunderbird. This example does not save emails to Outlook or Mozilla Thunderbird "Sent Items" local files. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' The mailman object is used for sending and receiving email. set mailman = Server.CreateObject("Chilkat.MailMan2") ' Any string argument automatically begins the 30-day trial. success = mailman.UnlockComponent("30-day trial") If (success <> 1) Then Response.Write "Component unlock failed" & "<br>" End If ' Set the SMTP server. mailman.SmtpHost = "mail.chilkatsoft.com" mailman.SmtpUsername = "myLogin" mailman.SmtpPassword = "myPassword" ' Create a new email object set email = Server.CreateObject("Chilkat.Email2") email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <support@chilkatsoft.com>" email.AddTo "Chilkat Admin","admin@chilkatsoft.com" success = mailman.SendEmail(email) If (success <> 1) Then Response.Write mailman.LastErrorText & "<br>" Else Response.Write "Mail Sent!" & "<br>" ' Now use Chilkat IMAP to save the email to Inbox.Sent set imap = Server.CreateObject("Chilkat.Imap") ' Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Connect to an IMAP server. success = imap.Connect("mail.chilkatsoft.com") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If ' The AppendMail method uploads an email to an IMAP server ' and saves it in the mailbox specified: success = imap.AppendMail("Inbox.Sent",email) If (success <> 1) Then Response.Write imap.LastErrorText & "<br>" End If Response.Write "Mail saved to Inbox.Sent" & "<br>" End If %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
