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
