none
Enviar un correo desde VB6.0 trabajando con un objeto de Word 2007 RRS feed

  • Pregunta

  •  

    Buenas tardes tengo el siguiente problema ojala que puedan ayudarme, tengo 2 equipos exactamente igual en caracteristias con Windows Vista y Word 2007, lo que cambia es la configuaración del outlook, lo chistoso es que cuando trabajo con un objeto de Word en Visual Basic un equipo si me deja el documento como el cuerpo del correo y lo envía asi por otro lado el otro equipo de la unica manera que deja salir el correo es que vaya como dato adjunto, ya revise las 2 configuraciones del Outlook y practicamente son iguales no eh dado exactamente con que cambian.

     

    Anexo el codigo con la configuración que tengo para hacer el envio a ver si se le puede agregar algo mas.

     

    With ObjWord.ActiveDocument
                            Intentos = 1
                            .MailMerge.DataSource.QueryString = StrQ
                            If Intentos > 1 Then MsgBox "Seleccionó este empleado en " & CStr(Intentos) & " Intentos.", vbInformation, "AAAA"
                           
                            If IntOpcion = 1 Then
                                .MailMerge.Destination = 2 'wdSendToEmail
                                .MailMerge.MailAsAttachment = False
                                .MailMerge.MailSubject = TxtRef0.text
                                .MailMerge.SuppressBlankLines = False
                                .MailMerge.DataSource.FirstRecord = 1  'wdDefaultFirstRecord
                                .MailMerge.DataSource.LastRecord = -16 'wdDefaultLastRecord
                                For IntEnvios = 1 To IIf(ChkCopJef0.value, 2, 1)
                                    .MailMerge.MailAddressFieldName = IIf(IntEnvios = 1, "e_mail", "e_mail_jefe")
                                    .MailMerge.Execute pause:=False
                                Next
                            Else
                                .MailMerge.Destination = 0 ' wdSendToNewDocument
                                .MailMerge.Execute
                                ObjWord.Application.Options.PrintBackground = False
                                ObjWord.Application.ActiveDocument.PrintOut
                            End If
                        End With

     

    Gracias

     

    Atte

    Rafael Mendoza

    martes, 14 de octubre de 2008 14:42