Buenos días a todos los expertos: Siguiendo las indicaciones de Macro Antonio he encontrado esta macro a través del google, pero mis conocimientos no llegan a entedender como adaptarla a mis necesidades. La macro es esta: Public Function sendEmail(ByVal senderAddress As String, _
ByVal destinataryAddress As String, _
Optional ByVal subject As String = "", _
Optional ByVal body As String = "", _
Optional ByVal CC As String = "", _
Optional ByVal BCC As String = "", _
Optional ByVal password As String, _
Optional ByRef cdoConfig As Object) As Boolean
On Error GoTo errorSection
Dim cdomsg As Object
Dim result As Boolean
Set cdomsg = CreateObject("CDO.Message")
If cdoConfig Is Nothing Then
Select Case True
Case senderAddress Like "*@gmail.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.gmail.com", _
smtpserverport:=465, _
sendusername:=senderAddress, _
sendpassword:=password)
Case senderAddress Like "*@hotmail.*" Or _
senderAddress Like "*@live.*" Or _
senderAddress Like "*@msn.*" Or _
senderAddress Like "*@outlook.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.live.com", _
smtpserverport:=25, _
sendusername:=senderAddress, _
sendpassword:=password)
Case senderAddress Like "*yahoo.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.mail.yahoo.com", _
Buenos días a todos los expertos: Siguiendo las indicaciones de Macro Antonio he encontrado esta macro a través del google, pero mis conocimientos no llegan a entedender como adaptarla a mis necesidades. La macro es esta: Public Function sendEmail(ByVal senderAddress As String, _
ByVal destinataryAddress As String, _
Optional ByVal subject As String = "", _
Optional ByVal body As String = "", _
Optional ByVal CC As String = "", _
Optional ByVal BCC As String = "", _
Optional ByVal password As String, _
Optional ByRef cdoConfig As Object) As Boolean
On Error GoTo errorSection
Dim cdomsg As Object
Dim result As Boolean
Set cdomsg = CreateObject("CDO.Message")
If cdoConfig Is Nothing Then
Select Case True
Case senderAddress Like "*@gmail.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.gmail.com", _
smtpserverport:=465, _
sendusername:=senderAddress, _
sendpassword:=password)
Case senderAddress Like "*@hotmail.*" Or _
senderAddress Like "*@live.*" Or _
senderAddress Like "*@msn.*" Or _
senderAddress Like "*@outlook.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.live.com", _
smtpserverport:=25, _
sendusername:=senderAddress, _
sendpassword:=password)
Case senderAddress Like "*yahoo.*"
Set cdoConfig = newCdoConfig(smtpserver:="smtp.mail.yahoo.com", _
smtpserverport:=465, _
sendusername:=senderAddress, _
sendpassword:=password)
Case Else
result = False
GoTo exitSection
End Select
End If ' cdoConfig is nothing
With cdomsg
Set .Configuration = cdoConfig
' mensaje
.from = senderAddress
.to = destinataryAddress
.subject = subject
.CC = CC
.BCC = BCC
.TextBody = body
.Send
End With
result = True
exitSection:
On Error GoTo 0
Set cdomsg = Nothing
sendEmail = result
Exit Function
errorSection:
result = False
MsgBox prompt:="Error " & Err.Number & ": " & Err.Description, _
Buttons:=vbCritical, _
Title:="sendEmail"
Resume exitSection
End Function Mi problema es donde incorporo esta instrucción: sendEmail senderAddress:="[email protected]", _
destinataryAddress:="[email protected]", _
subject:="Hola desde VBA", _
body:="Mensaje enviado por medio de CDO desde una aplicación usando VBA", _
password:="clave_de_hotmail" espero me podáis ayudar. ANDRES