Enviar plantilla Excel por email sin Outlook

Hola kusflo,

Revisa esto: http://www.rondebruin.nl/cdo.htm

Saludos,
KL


"kusflo" (donotspam)> wrote in message news:

He creado una plantilla con un código para que al darle a un botón haga una
copia de si misma y envie el fichero por email. Resulta que para que funcione
el usuario tiene que tener instalado el Outlook y mi pregunta es la
siguiente. ¿Es posible un código que permita el envio de un fichero por email
sin tener instalado el outlook?. Es decir, un código que funcione con tal de
que el usuario de la plantilla tenga conexión a internet.
"Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
aquí el verdadero saber." Confucio.

Buenas, yo estoy intentando con esta macro, que envia a ciertos
usuarios de una columna si en otra esta marcado el si y ademas en otra
celda el valor es 1 pero me da error "No es valido el valor de
configuracion sendusing" ALGUIEN PUEDE AYUDARME??? ME URGE!!!

Sub MacroX()


Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

' Set iConf = CreateObject("CDO.Configuration")
' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
.Item("http://schemas.microsoft.com/cdo/co...sing") = 2
'
.Item("http://schemas.microsoft.com/cdo/co...rver") "mi sttp"
'
.Item("http://schemas.microsoft.com/cdo/co...port")
= 25
' .Update
' End With

For Each cell In
Sheets("email").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Offset(0, 1).Value <> "" Then
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
1).Value) = "yes" Then
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = cell.Value
.From = ""
.Subject = "INDICADOR A REVISAR"
.TextBody = "Estimado " & cell.Offset(0, -1).Value
& vbNewLine & vbNewLine & _
"Revise el indicador"
' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") ""
.Fields("urn:schemas:mailheader:disposition-notification-to") ""

.Send
End With

Set iMsg = Nothing
End If
End If
Next cell

Set iConf = Nothing
Application.ScreenUpdating = True


End Sub

KL ha escrito:

Hola kusflo,

Revisa esto: http://www.rondebruin.nl/cdo.htm

Saludos,
KL


"kusflo" (donotspam)> wrote in message news:
>
> He creado una plantilla con un código para que al darle a un botón haga una
> copia de si misma y envie el fichero por email. Resulta que para que funcione
> el usuario tiene que tener instalado el Outlook y mi pregunta es la
> siguiente. ¿Es posible un código que permita el envio de un fichero por email
> sin tener instalado el outlook?. Es decir, un código que funcione con tal de
> que el usuario de la plantilla tenga conexión a internet.
> "Saber que se sabe lo que se sabe y que no se sabe lo que no se sabe; he
> aquí el verdadero saber." Confucio.