Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Word » Envío word mediante macros por email

Word - Envío word mediante macros por email

Volver
Nuevo Tema
<<>>
 
Vista:

Envío word mediante macros por email

Publicado por Andoni (2 intervenciones) el 23/05/2015 16:35:13
Buenos días queridos amigos y amigas,

Os cuento mi situación:


Tengo una plantilla de word la cual se rellena dos veces al mes, esta plantilla luego se manda a un correo a traves de MICROSOFT OFFICE OUTLOOK o bien se guarda en una determinada carpeta compartida con otros ordenadores.
Me gustaría saber si se puede crear dos macros que se activen con dos botones:
1. Enviar: que me adjunte dicho word en un email para seleccionar el destinatario y enviar.
2. Guardar , que me guarde dicho documento en la carpeta que seleccione.


Muy amables, dios les bendiga.

Gracias
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

Envío word mediante macros por email

Publicado por Mauri (2 intervenciones) el 16/10/2015 16:43:54
Pro si te sirve de algo, yo tengo esta macro en excel 2003, pero lo mismo la puedes adaptar a word.


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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Sub mailM()
'

    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim I As Long
 
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    Set Sourcewb = ActiveWorkbook
 
    'Copia la hoja a un libro nuevo

    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
 
    'Determina la versión de Excel y la extensión del archivo

    With Destwb
        If Val(Application.Version) < 12 Then
            'Estamos utilizando 97-2003...

            FileExtStr = ".xls": FileFormatNum = -4143
 
            End If
            End With
 
 
    'Grabamos la hoja que enviaremos por correo

    TempFilePath = Environ$("temp") & "\"
    TempFileName = "nombreconqueguardaseldocumento"
 
   With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, _
                FileFormat:=FileFormatNum
 
 
 
 
        For I = 1 To 1
        ' Modifica el correo del destinatario y el asunto

 
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
Set OutMail = OutApp.CreateItem(0)
 
 
 
With OutMail
.To = "destinatarioalqueseloquieresenviar@gmail.es"
 
 
'y agregamos la variable:

.Subject = "textodelasunto"
.Body = "copias el texto que quieres poner en el cuerpo del mail"
 
 
 
.Attachments.Add TempFilePath & TempFileName & FileExtStr
 
.send
End With
 
 
 
 
 
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With
 
    'Elimina el archivo temporal que se ha creado

Kill TempFilePath & TempFileName & FileExtStr
 
 
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
 
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