Access - Módulo de Clase ClsCDOMail error con 64bits

   
Vista:

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.

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 Long
 
Private 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Módulo de Clase ClsCDOMail error con 64bits

Publicado por Jimmy Alberto (23 intervenciones) el 17/07/2013 19:02:37
Expertos, encontré la siguiente solución al problema.

El Paquete de office 210 debe ser instalado para 32bits, de esa manera el código funciona correctamente; tuve que desinstalar el office existente y volverlo a reinstalar de esta forma y al probar la aplicación esta trabaja normalmente.

Pero deja un interrogante sobre el uso de este código en 64bits.

Lo dejo para quien tenga la respuesta.

Jimmy Alberto Pulido.
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

Módulo de Clase ClsCDOMail error con 64bits

Publicado por deneg_nhj (349 intervenciones) el 17/07/2013 21:09:44
Para el caso de SO de 64bits donde utilices librerias de 32bits, se debe de incluir en la cabecera de la declaracion de las funcion la palabra PtrSafe

Aqui te dejo el link para referencias

1
http://msdn.microsoft.com/en-us/library/office/ee691831(v=office.14).aspx







Saludos!
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