Envio de email

[Alejandro94]

Muy buenas a todos,, os comento mi problema:

Tengo un botón en un formulario para enviar un email. Parece que todo funciona bien porque envia el email pero, sin embargo, el email nunca llega al...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Oscar181167]

Copia el siguiente código en un módulo y ejecútalo:

Sub enviar_mail()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí