enviar resultados de un formulario al email, mas no el excel
Publicado por sandra (4 intervenciones) el 22/06/2016 16:34:43
Buenos días.
En la macro que realicé es un formulario con 10 preguntas para que sea remitido a mi email desde la macro, pero quiero que me lleguen los 10 datos, mas no el excel porque se llenaría mi email. agradezco su colaboración.
En la macro que realicé es un formulario con 10 preguntas para que sea remitido a mi email desde la macro, pero quiero que me lleguen los 10 datos, mas no el excel porque se llenaría mi email. agradezco su colaboración.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton3_Click()
On Error GoTo manejador
Select Case Application.MailSystemCase xlMAPI
ThisWorkbook.SendMail Recipients:="XXXX@XXX.com.co"
Case xlNoMailSystem
MsgBox "Conteo"Case Else
End Select
manejador:If Err Then MsgBox ("Se ha DETENIDO el envío automático, por favor enviarlo desde su correo electrónico a xxxx@xxx.com.co. Gracias")
MsgBox "SI no ha DETENIDO el envío, ha enviado exitosamente su encuesta, Gracias. Compruébelo en su bandeja de salida. Ya puede cerrar la encuesta", 1, "Enviado ok"
End Sub
Valora esta pregunta
0
Andrés gracias por tu pronta respuesta. Lamentablemente en Referencias- VBAProject, aparece FALTA Microsoft Outlook 1.5 object Library, por lo que no pude correr la macro y supongo que todas las personas a las que encuestaré, tienen el mismo problema. Muchas pero muchas gracias por tu interés. Saludos!