ADJUNTAR ARCHIVO EN ACCES PARA ENVIARLO A OUTLOOK
Publicado por Arturo Luna (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!
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
0