Access - ADJUNTAR ARCHIVO EN ACCES PARA ENVIARLO A OUTLOOK

   
Vista:

ADJUNTAR ARCHIVO EN ACCES PARA ENVIARLO A OUTLOOK

Publicado por Arturo Luna rola_luna@hotmail.com (1 intervención) el 18/06/2014 15:54:35
Me gustaria saber si alguien ha podido adjuntar archivos desde acces y enviarlos a outlook automaticamente
usando un boton de enviar.

saludos!

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
'ESTE ES EL BOTON PARA ENVIAR EL ARCHIVO ADJUNTO DE CONTRATO
 
Private Sub SaveAttach_Click()
On Error GoTo Err_SaveAttach_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
If IsNull(Forms![QG5]!Text67) Then
MsgBox "Favor de adjuntar archivo"
'    Exit Sub
End If
 
 
 
 
 
Private Sub Actualizar_Click()
 
 
On Error GoTo Err_ACTUALIZAR_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
 
' AQUI AGREGAR A POLOMEX (JACOBO Y CESAR)
If Me.Text120 = "Carrozado" Then
Call SendOutlookMail2(Forms!QG5.Form!Subject, Forms!QG5.Form!Body1)
 
 
' AQUI AGREGO A CHASIS (OSEASE QUE NO PONGO NADA)
ElseIf Me.Text120 = "Chasis" Then
Call SendOutlookMail2(Forms!QG5.Form!Subject, Forms!QG5.Form!Body1)
End If
 
MsgBox "E-Mail Enviado Satisfactoriamente"
 
Exit_ACTUALIZAR_Click:
    Exit Sub
 
Err_ACTUALIZAR_Click:
    MsgBox Err.Description
    Resume Exit_ACTUALIZAR_Click
 
End Sub
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