Adjuntar archivo modificado
Publicado por Stevenson (13 intervenciones) el 20/05/2015 19:22:04
Cordial saludo
Tengo un documento de Word con una serie de preguntas y necesito que luego de que sean respondidas este documento sea enviado a un correo electrónico, para ésto tengo el siguiente código pero resalta un error en .Attachments.Add que no he podido corregir
Tengo un documento de Word con una serie de preguntas y necesito que luego de que sean respondidas este documento sea enviado a un correo electrónico, para ésto tengo el siguiente código pero resalta un error en .Attachments.Add que no he podido corregir
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim outlookapp As Object
Dim item As Object
Dim subject As String
Dim msg As String
Set outlookapp = CreateObject("outlook.application")
msg = "Solicitud de Capacitación"
subject = "Solicitud de Capacitación"
Set item = outlookapp.createitem(0)
With item
.to = "ejemplo@ejemplo.com"
.subject = subject
.body = msg
.Display.Attachments.Add "C:\Users\slopez\Documents\Documentos Office\WORD.TXT"
End With
End Sub
Valora esta pregunta
0
