Módulo de Clase ClsCDOMail error con 64bits
Publicado por Jimmy Alberto (23 intervenciones) el 17/07/2013 16:50:35
Expertos Foreros buenos días
Recurro a ustedes para la siguiente consulta, en mi base de datos desarrollada en Access 2010, emplee el código clsCDOmail que elaboró el master Jefferson de (Cabimas - Venezuela) para el envío de correos, en mí caso lo empleo para que trabaje desde gmail; resulta que uno de los equipos que tiene acceso al programa inicialmente tenía instalado windows 8 e instalado Access 2010, allí no había ningún problema, la aplicación se ejecutaba normal, pero decidieron formatear el equipo y le instalaron windows 7 y nuevamente Access 2010, pero al ejecutar la aplicación este ingresa directamente al editor de visual basic para Access marcandome un error en la palabra function del módulo clsCDOmail con el siguiente mensaje.
El código de este proyecto se debe actualizar para usarse en sistemas de 64 bits. Revise y actualice las instrucciones, declare y a continuación márquelas con el atributo ptssafe.
Cabe anotar que la aplicación en las otras estaciones trabaja con sistema operativo windows 7 y no presenta problemas, revise si el problema era por las referencias de visual y por ese lado no fué.
Alguien sabe como como puedo resolver esta situación.
Gracias por la atención.
Esta es la parte del código donde me señala la novedad.
Jimmy Alberto Pulido
Recurro a ustedes para la siguiente consulta, en mi base de datos desarrollada en Access 2010, emplee el código clsCDOmail que elaboró el master Jefferson de (Cabimas - Venezuela) para el envío de correos, en mí caso lo empleo para que trabaje desde gmail; resulta que uno de los equipos que tiene acceso al programa inicialmente tenía instalado windows 8 e instalado Access 2010, allí no había ningún problema, la aplicación se ejecutaba normal, pero decidieron formatear el equipo y le instalaron windows 7 y nuevamente Access 2010, pero al ejecutar la aplicación este ingresa directamente al editor de visual basic para Access marcandome un error en la palabra function del módulo clsCDOmail con el siguiente mensaje.
El código de este proyecto se debe actualizar para usarse en sistemas de 64 bits. Revise y actualice las instrucciones, declare y a continuación márquelas con el atributo ptssafe.
Cabe anotar que la aplicación en las otras estaciones trabaja con sistema operativo windows 7 y no presenta problemas, revise si el problema era por las referencias de visual y por ese lado no fué.
Alguien sabe como como puedo resolver esta situación.
Gracias por la atención.
Esta es la parte del código donde me señala la novedad.
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
Option Compare Database
Option Explicit
' para la conexión a internet
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" ( _
ByRef lpdwFlags As Long, _ ByVal dwReserved As Long) As LongPrivate Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
Private Const INTERNET_RAS_INSTALLED As Long = &H10
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20
Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40
' variables locales
Private mServidor As String
Private mPara As String
Private mDe As String
Private mAsunto As String
Private mMensaje As String
Private mAdjunto As String
Private mPuerto As Variant
Private mUsuario As String
Private mPassword As String
Private mCco As String
Private mUseAuntentificacion As Boolean
Private mSSL As Boolean
Public Event Error(DESCRIPCION As String, Numero As Variant)
Public Event EnvioCompleto()
Jimmy Alberto Pulido
Valora esta pregunta
0