Office - Correspondencia en Word para Adjuntar Archivos

   
Vista:

Correspondencia en Word para Adjuntar Archivos

Publicado por Omar Barrera (3 intervenciones) el 10/11/2014 19:16:05
Buen día!

Tengo un archivo de correspondencia para el envío de correos, solo que ahora me piden que a cada persona le envíe un archivo adjunto diferente que es un reporte operativo diario, sin embargo no encuentro como hacer esta función; digamos que ligue un archivo a cada persona

Ojala me puedan apoyar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Correspondencia en Word para Adjuntar Archivos

Publicado por tresy tresyuna@gmail.com (44 intervenciones) el 12/11/2014 19:59:09
Yo he tratado de encontrar respuesta a esto. Me pparece que no existe una solución al envío de correos combinados con envíos adjuntos. Pero prueba esto: en una planilla de Excel pon todos los campos necesarios más un campo con el documento que quieres adjuntar vinculado a cada registro.
Combina todos los campos en el cuerpo del mail a enviar. Si funciona me dices..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Correspondencia en Word para Adjuntar Archivos

Publicado por Omar Barrera (3 intervenciones) el 12/11/2014 20:01:04
Ya lo logre con una Macro, esta un poco rustica, pero funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Correspondencia en Word para Adjuntar Archivos

Publicado por tresy tresyuna@gmail.com (44 intervenciones) el 13/11/2014 17:58:55
Congratulations.
¿En que consiste esa Macro?, ¿Es en Outlook, o en Word?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Correspondencia en Word para Adjuntar Archivos

Publicado por Omar Barrera (3 intervenciones) el 13/11/2014 18:04:31
Es una Macro en Word

Uso aparte del archivo en excel para la correspondencia un word, donde coloco el correo y la ruta de los archivos a adjuntrar

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub adjuntos()
'
' adjuntos Macro
'

'
Dim Source As Document, Maillist As Document, TempDoc As Document
Dim Datarange As Range
Dim i As Long, j As Long
Set objEmail = CreateObject("CDO.Message")
objEmail.from = "oibarrera@eservicios.indracompany.com"
Dim bStarted As Boolean
Set oOutlookApp = CreateObject("Outlook.Application")
' Dim oItem As Outlook.MailItem
Dim mysubject As String, message As String, title As String
Set Source = ActiveDocument
' Check if Outlook is running.  If it is not, start Outlook
On Error Resume Next
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
' Open the catalog mailmerge document
With Dialogs(wdDialogFileOpen)
    .Show
End With
Set Maillist = ActiveDocument
'   Show an input box asking the user for the subject to be inserted into the email messages
message = "Enter the subject to be used for each email message."    ' Set prompt.
title = " Email Subject Input"    ' Set title.
' Display message, title
mysubject = InputBox(message, title)
' Iterate through the Sections of the Source document and the rows of the catalog mailmerge document,
' extracting the information to be included in each email.
For j = 1 To Source.Sections.Count - 1
    Set oItem = oOutlookApp.CreateItem(olMailItem)
    With oItem
        .Subject = mysubject
        .Body = Source.Sections(j).Range.Text
        Set Datarange = Maillist.Tables(1).Cell(j, 1).Range
        Datarange.End = Datarange.End - 1
        .To = Datarange
        For i = 2 To Maillist.Tables(1).Columns.Count
            Set Datarange = Maillist.Tables(1).Cell(j, i).Range
            Datarange.End = Datarange.End - 1
            .Attachments.Add Trim(Datarange.Text), olByValue, 1
        Next i
        .Send
    End With
    Set oItem = Nothing
Next j
Maillist.Close wdDoNotSaveChanges
'  Close Outlook if it was started by this macro.
If bStarted Then
    oOutlookApp.Quit
End If
MsgBox Source.Sections.Count - 1 & " messages have been sent."
'Clean up
Set oOutlookApp = Nothing


End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar