Visual Basic para Aplicaciones - Enviar varios correos con diferentes adjuntos problema con el adjunto

Life is soft - evento anual de software empresarial
   
Vista:

Enviar varios correos con diferentes adjuntos problema con el adjunto

Publicado por xenen (3 intervenciones) el 04/03/2014 16:24:59
Buenas,

Es la primera vez que escribo aquí.

Estoy intentando hacer una macro que envíe correos a diferentes personas adjuntando para cada uno un archivo distinto.

Lo estoy planteando poniendo en cada columna un destinatario diferente y en cada columna en la fila 2 estaria el destinatario 3 y 4 para destinatario en copia y oculto, 5 para asunto del mail, 6 para cuerpo y 7 para el adjunto.

El problema lo encuentro en el adjunto que no lo encuentra me dice que el path no es correcto, en la celda (B7, C7...) en cuestión lo estoy poniendo como M:\figuras\lista1.xls, y también he probado a ponerlo "M:\figuras\lista1.xls" en la celda el caso es que cuando lo pongo como .Attachments.Add "M:\figuras\lista1.xls", así si que adjunta pero claro querria adjuntar documentos distintos a cada persona.

Si me podéis ayudar os lo agradecería.

El código es el siguiente:



Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body, Email_attach As String
' Declaro variables
Dim Mail_Object, Mail_Single As Variant
Dim Item As Integer
'Inicializo la variable para el loop con 3 iteraciones
Item = 0
Do While Item < 3

'Relleno variables con lo que hay en las celdas
Email_Send_From = "hola@prueba.com"
Email_Send_To = ActiveSheet.Cells(Item + 2, 2)
Email_Cc = ""
Email_Bcc = ""
Email_Subject = ActiveSheet.Cells(Item + 2, 5)
Email_Body = ActiveSheet.Cells(Item + 2, 6)
Email_attach = ActiveSheet.Cells(Item + 2, 7)
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
'Relleno campos del mail
.Subject = Email_Subject
.To = Email_Send_To
'.cc = Email_Cc
'.BCC = Email_Bcc
.Body = Email_Body
'.Attachments.Add "M:\figuras\lista1.xls" 'con esto funciona peeeero no es lo que queremos
.Attachments.Add (Email_attach)
'Envio
.send
End With
Item = Item + 1
Loop
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

Gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Formulario de Access
- Monto Escrito
Imágen de perfil de JuanC

Enviar varios correos con diferentes adjuntos problema con el adjunto

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 04/03/2014 16:57:30
se me ocurren 2 cosas...

1ro probar poniendo
Email_attach = CStr(ActiveSheet.Cells(Item + 2, 7).Value)

2do depurar el código paso a paso y ver cuál es el problema...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar varios correos con diferentes adjuntos problema con el adjunto

Publicado por xenen (3 intervenciones) el 04/03/2014 17:14:34
Muchas gracias Juan, no ha funcionado con el cambio a String pero yo creo que puede ir por ahi.
A ver si peleandome con el código sacamos algo.

Muchas gracias!

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Enviar varios correos con diferentes adjuntos problema con el adjunto

Publicado por xenen (3 intervenciones) el 04/03/2014 18:26:34
Vaya tela,

Tenía al reves las filas y columnas... rookie mistake! jejej

Muchas gracias! El código va bien salvo eso.

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar