Error 5 en la secuencia dam.send 'El correo se envía en automático

Question

Error 5 en la secuencia dam.send 'El correo se envía en automático

Anónimas

Hola, por favor me puedes colaborar con el error que se me presenta en la siguiente macro?

col = Range("H1").Column

For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

Set dam = CreateObject("Outlook.Application").CreateItem(0)

'

dam.To = Range("B" & i).Value 'Destinatarios

dam.Cc = Range("C" & i).Value 'Con copia

dam.Bcc = Range("D" & i).Value 'Con copia oculta

dam.Subject = Range("E" & i).Value '"Asunto"

dam.Body = Range("F" & i).Value '"Cuerpo del mensaje"

'

For j = col To Cells(i, Columns.Count).End(xlToLeft).Column

archivo = Cells(i, j).Value

If archivo <> "" Then dam.Attachments.Add archivo

'dam.Display 'El correo se muestra

End Sub

El error se presenta ahí y no me envia nada.

Mil Gracias

Pregunta bloqueada. Esta pregunta se migró desde la Comunidad de Soporte técnico de Microsoft. Puede votar si es útil, pero no puede agregar comentarios o respuestas ni seguir la pregunta.

1 respuesta

Answer 1

referencia outlook y escribe esto:

Sub p()

Dim col As Integer

Dim dam As Outlook.MailItem

Dim i As Long

Dim j As Integer

Dim Archivo As String

col = Range("H1").Column

For i = 2 To Range("B" & Rows.Count).End(xlUp).Row

Set dam = Outlook.CreateItem(0)

dam.To = Range("B" & i).Value 'Destinatarios

dam.Cc = Range("C" & i).Value 'Con copia

dam.Bcc = Range("D" & i).Value 'Con copia oculta

dam.Subject = Range("E" & i).Value '"Asunto"

dam.Body = Range("F" & i).Value '"Cuerpo del mensaje"

'

For j = col To Cells(i, Columns.Count).End(xlToLeft).Column

Archivo = Cells(i, j).Value

If Archivo <> "" Then dam.Attachments.Add Archivo

'dam.Display 'El correo se muestra

End Sub

Compartir a través de

Error 5 en la secuencia dam.send 'El correo se envía en automático

1 respuesta