UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

raul7733


Buenas,

Tengo una macro que pulsando en un boto me envía en formato PDF esa hoja Excel por medio del Outlook.
Mi problema es que necesitaría saber una confirmación de lectura del mail enviado y no sé como indicarlo en la macro.
¿Me podría ayudar alguien? La macro es la siguiente.

-----------------------------
Sub SendMailbyOutlookCLibroYPdf()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OA, OM As Object
Dim NA As Variant
Dim Path, TD, fn, mydoc As String
TD = Format(Date, "dd/mm/yyyy")
Path = ThisWorkbook.Path & "\"
fn = ActiveSheet.Name
mydoc = Path & fn & ".xlsx"
mydoc1 = Path & Cells(2, "U") & ".pdf" 'CELDA DONDE TOMA EL NOMBRE DEL PDF
Dest = Cells(1, "AR") 'CELDA DONDE TIENE QUE ESTAR LA DIRECCION DE CORREO
Sheets(fn).Copy
ActiveWorkbook.SaveAs Filename:=mydoc, FileFormat:=xlOpenXMLWorkbook
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
mydoc1, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveWorkbook.Close False

Set OA = CreateObject("Outlook.Application")
Set OM = OA.CREATEITEM(0)

With OM
.To = Dest 'Debes agregar mail destinatario ej "xxxxx@gmail.com
.CC = ""
.BCC = ""
.Subject = "ORDEN DE CALIDAD " & Cells(2, "U") ' ESTE ES EL TÍTULO DEL ASUNTO
.Body = "Saludos. En este mail encontraran el archivo adjunto de una nueva Orden de Calidad " & fn & " al " & TD & " confirmar recepción." 'TEXTO DEL CORREO
'.attachments.Add mydoc (Activar para enviar tambien el archivo completo en excel)
.attachments.Add mydoc1
.Send
End With
If Err.Number = 0 Then
SendMail_Gmail = True
MsgBox "El mail con archivo adjunto fue enviado con éxito", vbInformation, "AVISO"
Else
MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
' Kill mydoc (Activar para enviar también el archivo completo en excel)
Kill mydoc1
Set OM = Nothing
Set OA = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

----------------------------------

Gracias.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.