Código
Option Explicit Private Sub Form_Load() sendOutlookEmail End Sub Sub sendOutlookEmail() Dim oApp As Outlook.Application Dim oMail As MailItem Set oApp = CreateObject("Outlook.application") Set oMail = oApp.CreateItem(olMailItem) oMail.Body = "Body of the email" oMail.Subject = "Subject" oMail.To = "" 'A email oMail.CC = "" 'Copia a emails oMail.Attachments.Add "C:\archivo.txt" oMail.Send Set oMail = Nothing Set oApp = Nothing End Sub
Alguno tiene idea de como podría ser?
Saludos.