











Sub Correo_e()
On Error GoTo x
Dim Direccion As String, Asunto As String
Dim Texto As String, Mensaje As String, i As Integer
For i = 1 To 3
Direccion = Cells(i, 1)
Asunto = "Saludos"
Texto = "Les envío este mensaje para Saludarlos"
Mensaje = "mailto:" + Direccion + "?subject=" + Asunto + "&body=" + Texto
ActiveWorkbook.FollowHyperlink (Mensaje)
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "%N", True
Next
Exit Sub
x:
MsgBox "Falló la conexión", 64, "Todo Excel"
End Sub
Sub Atodos()
Dim oOutlook As Object, ItemCorreo As Object, i As Integer
For i = 1 To 3
Set oOutlook = CreateObject("Outlook.Application")
Set ItemCorreo = oOutlook.CreateItem(0)
ItemCorreo.Recipients.Add Cells(i, 1)
ItemCorreo.Subject = Cells(i, 2)
ItemCorreo.body = Cells(i, 3)
ItemCorreo.send
Set oOutlook = Nothing
Next
End Sub


Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado