Private Sub Enviar_Email_Envioprimera(NUMERO_DE_CONTRATO, OFICINA, CONTRATO, FECHA_1_RECLAMACION, CCM, SEGURO, GARANTIA_RECOMPRA, ENVIO_RENT_and_TECH)
On Error GoTo Err_CORREO_Click
Dim dbs As Database, qdf As QueryDef, consulta As String
Dim cuerpo As String, para As String, cc As String, asunto As String
Dim comentario As String
Dim CONTRATO As String
Dim CCM As String, GARANTIA_RECOMPRA As String, SEGURO As String, _
Anexo_1 As String, Anexo_2 As String, _
Anexo_3 As String, Anexo_4 As String
Anexo_1 = ""
Anexo_2 = ""
Anexo_3 = ""
Anexo_4 = ""
If CONTRATO Is False Then
Anexo_1 = vbCr & vbCr + "DOCUMENTO 1"
End If
If CCM Is False Then
Anexo_2 = vbCr & vbCr + "DOCUMENTO 2"
End If
If GARANTIA_RECOMPRA Is False Then
Anexo_3 = vbCr & vbCr + "DOCUMENTO 3"
End If
If SEGURO Is False Then
Anexo_4 = vbCr & vbCr + "DOCUMENTO 4"
End If
asunto = "ASUNTO DE CORREO"
texto = "Buenos días," & vbCr & vbCr + _
"Texto de Correo:" & _
vbCr & vbCr + OFICINA & _
Anexo_1 & Anexo_2 & Anexo_3 & Anexo_4 & _
vbCr & vbCr + "Texto de Correo" & _
vbCr & vbCr + "Texto de Correo" & _
vbCr & vbCr + "Texto de Correo" & _
vbCr & vbCr + "Texto de Correo" & _
vbCr & vbCr + "Texto de Correo" & _
vbCr & vbCr + "<b>Texto de correo" & _
vbCr & vbCr + vbCr & "Gracias, " & _
vbCr & vbCr + vbCr & "Un saludo. " 'MsgBox texto
If IsNull(Usuario) Then
MsgBox "No existe Email de Usuario para la operación: NUMERO_DE_CONTRATO"
GoTo Exit_CORREO_Click::
End If
Set miCorreo = CreateObject("CDO.Message")
With miCorreo
'.from = "mi correo" & "< >"
.from = "mi correo" & "<mi correo>"
'.from = "mi correo"
'.To = "mi correo"
.To = "mi correo"
.Bcc = "mi correo"
.replyto = "mi correo"
.Subject = asunto
.TextBody = texto
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtpbbva"
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
'.display
.Send
End With
Set miCorreo = Nothing
Exit_CORREO_Click:
Exit Sub
Err_CORREO_Click:
MsgBox Err.Description
Resume Exit_CORREO_Click
End Sub
Esto me funciona (y sigue funcionando perfectamente), pero ahora me ha surgido la necesidad de anexar un archivo pdf guardado en el disco duro para enviarlo junto al correo.
Es decir, que me envíe el mail tal como está en el código, anexando también el archivo (que siempre tendrá el mismo nombre y estará en la misma carpeta).
Mil gracias de antemano.
Xantus.