Excel VBA controla el envío de Outlook y cómo configurar el color del texto.

Consulte el código VBA a continuación

Sub Send_Email()

Atenuar i como entero

Atenuar MyOutlookApp como Outlook.Application

Atenuar MyFolder como Outlook.MAPIFolder

Atenuar MyNewMail como Outlook.MailItem

Atenuar MyAttachments como Outlook.Attachments 'Adjuntos

Establecer MyOutlookApp = Nuevo Outlook .Application

Establecer MyFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "Mi carpeta de correo")

Establecer MyNewMail = MyOutlookApp.CreateItem( olMailItem )

Con MyNewMail

.To = "YourFridentMail@sina.com " 'Dirección de correo electrónico de destino

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

.Subject = "test " 'Title

.HTMLBody = "

Este es rojo

.AlternateRecipientAllowed = True 'Este correo electrónico se puede reenviar

.AutoForwarded = True 'Este correo electrónico permite el reenvío automático

.DeleteAfterSubmit = False 'Guardar una copia después de enviar

'Mover a la carpeta especificada después de enviar

.SaveSentMessageFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "Carpeta de respaldo ")

.ReadReceiptRequested = Tr

ue 'Requerir recibo del destinatario

'SaveSentMessageFolder

Terminar con

'Adjunto

Establecer MyAttachments = MyNewMail.Attachments

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

MyNewMail.Save 'Guardar

MyNewMail.Send 'Enviar

MiCarpeta. Mostrar 'Mostrar Outlook de Office

End Sub