Refer to the VBA code below

Sub Send_Email()

Dim i As Integer

Dim MyOutlookApp As Outlook.Application

Dim MyFolder As Outlook.MAPIFolder

Dim MyNewMail As Outlook.MailItem

Dim MyAttachments As Outlook.Attachments 'Attachments

Set MyOutlookApp = New Outlook .Application

Set MyFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "My Mail Folder")

Set MyNewMail = MyOutlookApp.CreateItem( olMailItem)

With MyNewMail

.To = "YourFridentMail@sina.com " 'Target email address

.Cc="aaa@qq.com"< /p>

.Subject = "test " 'Title

.HTMLBody = "

This is red

.AlternateRecipientAllowed = True 'This email can be forwarded

.AutoForwarded = True 'This email allows automatic forwarding

.DeleteAfterSubmit = False 'Keep a copy after sending

'Move to the specified folder after sending

.SaveSentMessageFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "Backup Folder ")

.ReadReceiptRequested = True 'Require recipient receipt

'SaveSentMessageFolder

End With

'Attachment

Set MyAttachments = MyNewMail.Attachments

MyAttachments.Add "c:\win\abc.txt ", olByValue

MyNewMail.Save 'Save

MyNewMail.Send 'Send

MyFolder.Display 'Display office outlook

End Sub