Macros excel
Necesito que un excel me mande un correo, al destinatorario que yo elija(lo relleno en un rango de celdas) con un asunto que yo ponga, como lo hago, alguien sabe gracias, y el correo solo tendrá el valor de una celda en asunto o en mensaje
1 Respuesta
Respuesta de grecko187
1
Se puede enviar pero al menos creo que solo con el sistema de correo de Microsoft, este es el código y solo envía si se cuenta con el Outlook, no estoy seguro de que funcione por que no utilizo en Outlook, pero si no funciona me dices y veo que hacer, hasta pronto.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Application.MailSystem
Case xlMAPI
MsgBox "Mail system is Microsoft Mail"
If IsNull(Application.MailSession) Then
Application.MailLogon
Cierra = True
End If
ActiveWorkbook.SendMail "[email protected]", "Hola", 0
If Not IsNull(Application.MailSession) Then Application.MailLogoff
Case xlPowerTalk
MsgBox "Mail system is PowerTalk"
Case xlNoMailSystem
MsgBox "No mail system installed"
End Select
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Application.MailSystem
Case xlMAPI
MsgBox "Mail system is Microsoft Mail"
If IsNull(Application.MailSession) Then
Application.MailLogon
Cierra = True
End If
ActiveWorkbook.SendMail "[email protected]", "Hola", 0
If Not IsNull(Application.MailSession) Then Application.MailLogoff
Case xlPowerTalk
MsgBox "Mail system is PowerTalk"
Case xlNoMailSystem
MsgBox "No mail system installed"
End Select
End Sub
