Access - Ayudame Luis Fernando

Dim objOutlook As Outlook.Application

Dim objMail As Outlook.MailItem

Dim objNamespace As Outlook.NameSpace

Dim objFolder As Outlook.MAPIFolder

Dim objRecipient As Outlook.Recipient

' Crear el objeto Outlook

Set objOutlook = New Outlook.Application

' Obtener la cuenta que quieres utilizar

Set objNamespace = objOutlook.GetNamespace("MAPI")

Set objFolder = objNamespace.Folders("nombre_de_la_cuenta")

Set objFolder = objFolder.Folders("Bandeja de entrada")

' Crear el correo electrónico

Set objMail = objOutlook.CreateItem(olMailItem)

' Agregar el destinatario

Set objRecipient = objMail.Recipients.Add("destinatario@example.com")

objRecipient.Type = olTo

' Especificar la cuenta remitente

objMail.SendUsingAccount = objNamespace.Accounts.Item(objFolder.Parent.Name)

' Mostrar el formulario del correo electrónico

objMail.Display