Enviar correo a dos direcciones desde access
Tengo el siguiente código para que me genere un correo al hacer click, como veis se lo envía al correo que aparece en el textbox llamado EMAIL, me gustaría que además de al correo que aparece en EMAIL me lo envíe también a un correo fijo, [email protected] por ejemplo.
Private Sub ACEPTACION_Click()
Dim mailA As String
mailA = Me.EMAIL.Value
Dim Olk As Outlook.Application
Set Olk = CreateObject("Outlook.Application")
Dim OlkMsg As Outlook.MailItem
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg
Dim OlkDestinatario As Outlook.Recipient
Set OlkDestinatario = .Recipients.Add(mailA)
OlkDestinatario.Type = olTo
.Subject = "GENERAR NÚMERO "
.Body = "El cliente acepta, hay que generar NÚMERO OT"
.Display
End With
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkDestinatario = Nothing
End Sub
SIGUIENDO