15 lines
428 B
Text
15 lines
428 B
Text
'VBA code:
|
|
Sub EnviarCorreo()
|
|
Dim OutlookApp As Object
|
|
Dim OutlookMail As Object
|
|
Set OutlookApp = CreateObject("Outlook.Application")
|
|
Set OutlookMail = OutlookApp.CreateItem(0)
|
|
With OutlookMail
|
|
.To = "recipient@domain.com"
|
|
.Subject = "Mail subject"
|
|
.Body = "This is the body of the email."
|
|
.Send
|
|
End With
|
|
Set OutlookMail = Nothing
|
|
Set OutlookApp = Nothing
|
|
End Sub
|