Datos adjuntos por mail según dni

A ver si me podéis echar una manilla. Tengo una base de datos access de mi Peña y me gustaría enviarle a cada socio por mail automáticamente el recibo de pago. Ahora los genero uno a uno y después los voy enviando por mail uno a uno. Pero me gustaría generarlos, guardarlos en algún repositorio nombrados con su DNI y poder enviarlos todos cada uno a su mail con un solo click .

Respuesta
2

He estado esperando por si alguien te daba una respuesta que te sirviera en tu caso particular de Access. No es difícil hacerlo todo automatizado. Es decir, que pulsando un botón te cree las cuotas, te guarde los "recibos" en formato pdf(que queda más bonito) y te los envíe por correo. Pero si es lioso de explicar. Por eso, si quieres, repito, si quieres, mándame un mensaje(sólo el mensaje) a [email protected] y te mando un ejemplo.

Si lo haces, en el asunto del mensaje pon tu alias Juan Carlos Morente, ya que si no sé quien me escribe ni los abro.

1 respuesta más de otro experto

Respuesta
1

Tengo un macro en excel.

Lo único que deberás hacer es pegar el código y seguir los pasos que ahí te marco.

Sub EnviarEmail()

Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Saldo As String
Dim Msg As String
'
Set OutlookApp = New Outlook.Application
'Asigna el rango donde tienes tus correos
For Each cell In Range("A1:A80")
'Asunto del correo
Asunto = "EJEMPLO"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Saldo = Format(cell.Offset(0, 1).Value, "$#,##0")
FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy")
'
'Cuerpo del mensaje
'
Msg = "Ejmeplo " & Destinatario & vbNewLine & vbNewLine
Msg = Msg & FechaVencimiento & "ejemplo" & vbNewLine & vbNewLine
Msg = Msg & "ejemplo"
Msg = Msg & Saldo & vbNewLine & vbNewLine
Msg = Msg & "ejemplo" & vbNewLine
Msg = Msg & "ejemplo"
'
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.Body = Msg
.Send
'
End With
'
Next
'
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas