Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
marcrausch  
#1 Posted : Tuesday, June 4, 2013 4:11:49 AM(UTC)
marcrausch

Rank: Newbie

Groups: Registered
Joined: 6/4/2013(UTC)
Posts: 0

Hi, I have a table in my Access 2007 database that has name and email_address fileds. I want to send to all the email addresses in the table. From the examples I have found, the way to connect is using this sort of code:

oSmtp.AddHeader "X-Data-Connection", _
'"Driver={Microsoft Access Driver (*.mdb)};Dbq={$var_easendmailpath}\easendmail_demo.mdb;Uid=;Pwd=;"

I am not sure what the correct syntax should be to connect to a local database as I am running the code from access by clicking on a button on an access form.
ivan  
#2 Posted : Tuesday, June 4, 2013 4:50:36 AM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
marcrausch wrote:
Hi, I have a table in my Access 2007 database that has name and email_address fileds. I want to send to all the email addresses in the table. From the examples I have found, the way to connect is using this sort of code:

oSmtp.AddHeader "X-Data-Connection", _
'"Driver={Microsoft Access Driver (*.mdb)};Dbq={$var_easendmailpath}\easendmail_demo.mdb;Uid=;Pwd=;"

I am not sure what the correct syntax should be to connect to a local database as I am running the code from access by clicking on a button on an access form.



You are using EASendMail Service to send the email, so you still need to specify the database path, because EASendMail Service is an external service, even you call SendMailToQueue in access vba, you still need to specify the path.

For example:

oSmtp.AddHeader "X-Data-Connection", _
'"Driver={Microsoft Access Driver (*.mdb)};Dbq=d:\myfolder\my.mdb;Uid=;Pwd=;"
marcrausch  
#3 Posted : Tuesday, June 4, 2013 5:47:55 AM(UTC)
marcrausch

Rank: Newbie

Groups: Registered
Joined: 6/4/2013(UTC)
Posts: 0

Thank you so much for your help Ivan. This is the code I am using:

oSmtp.AddHeader "X-Data-Connection", _
Driver = "{Microsoft Access Driver (*.accdb)};Dbq=C:\myfolder\mydatabse.accdb;Uid=;Pwd=;"

I am getting the following error:

The system cannot find the file specified.
NativeErrorCode: 2[SendMailToQueEx]

any ideas what I might be doing wrong?

ivan  
#4 Posted : Tuesday, June 4, 2013 6:15:28 AM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
marcrausch wrote:
Thank you so much for your help Ivan. This is the code I am using:

oSmtp.AddHeader "X-Data-Connection", _
Driver = "{Microsoft Access Driver (*.accdb)};Dbq=C:\myfolder\mydatabse.accdb;Uid=;Pwd=;"

I am getting the following error:

The system cannot find the file specified.
NativeErrorCode: 2[SendMailToQueEx]

any ideas what I might be doing wrong?



please download easendmail service and install it on your machine.

http://www.emailarchitec...ad/easendmailservice.exe


marcrausch  
#5 Posted : Tuesday, June 4, 2013 7:08:18 AM(UTC)
marcrausch

Rank: Newbie

Groups: Registered
Joined: 6/4/2013(UTC)
Posts: 0

Thank You Ivan

I did install and now it works in that it tells me "email was sent successfully", but mails dont come through. Do I need to set smtp settings in the EASendMail service manager or can you just do it with code?

My table is "EmailTest" and it has two fields, "user_name" and "email" This is the code I have:

Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"

' Set your sender email address
oSmtp.FromAddr = "***@marcrausch.com"

' Set email subject
oSmtp.Subject = "simple email from VB 6.0 project"

' Your SMTP server address
oSmtp.ServerAddr = "mail.marcrausch.com"

' User and password for ESMTP authentication, if your server doesn't require
' User authentication, please remove the following codes.
oSmtp.UserName = "***@marcrausch.com"
oSmtp.Password = "****"

' If your smtp server requires SSL connection, please add this line
' oSmtp.SSL_init

' If you want to EASendMail service send the email after 10 minutes, please use the following code.
' oSmtp.Date = DateAdd("n", 10, Now())

' EASendMail will use the following connection to connect to the database,
' the syntax is same as ADO connection object.

oSmtp.AddHeader "X-Data-Connection", _
Driver = "{Microsoft Access Driver (*.accdb)};Dbq=C:\Users\Public\TestDatabase.accdb;Uid=;Pwd=;"


' EASendMail will select the fields by the following sql statement
' before sending email,
' then pick the recipient address from specified field.
oSmtp.AddHeader "X-Sql-Select", "SELECT * FROM EmailTest"

' Pick "name" field as the recipient name and "address" field as the recipient address.
' You can also use {$var_srecord:fieldname} to pick any field in X-Sql-Select statement
' and put it to subject, bodytext, then EASendMail will replace it automatially.
oSmtp.DisplayTo = """{$var_srecord:user_name}"" <{$var_srecord:email}>"
oSmtp.AddHeader "X-Rcpt-To", "{$var_srecord:email}"

' EASendMail service will execute the following sql statement on
' every email was sent successfully.
oSmtp.AddHeader "X-Sql-OnSentSuccess", _
"INSERT INTO sentlog ( server, email ) VALUES( '{$var_server}', '{$var_rcptaddr}' )"

' EASendMail service will execute the following sql statement on
' every email could not be sent.
oSmtp.AddHeader "X-Sql-OnSentError", _
"INSERT INTO errorlog( email, server, errorcode, errordescription ) " & _
"VALUES( '{$var_rcptaddr}', '{$var_server}', '{$var_errcode}', '{$var_errdesc}' )"

Dim bodytext As String

bodytext = "Hi {$var_srecord:user_name}, " & Chr(13) & Chr(10)
bodytext = bodytext & "Send email with queue." & Chr(13) & Chr(10) & Chr(13) & Chr(10)
bodytext = bodytext & "From:Tester" & Chr(13) & Chr(10)
'{$var_srecord:address} will be replaced by EASendMail automatically.
bodytext = bodytext & "To:{$var_srecord:email}" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
bodytext = bodytext & "Your id in database is {$var_srecord:id}." & Chr(13) & Chr(10)

oSmtp.bodytext = bodytext

MsgBox "start to send email ..."

If oSmtp.SendMailToQueue() = 0 Then
MsgBox "email was sent to queue successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If

Edited by moderator Tuesday, June 4, 2013 5:10:46 PM(UTC)  | Reason: hide your email address and password

ivan  
#6 Posted : Tuesday, June 4, 2013 5:18:55 PM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
you don't have to set easendmail service smtp server, because you have specified it in your code.

it is likely there is an error to access your database, please go to easendmail service manager->journal->system error and see if there is any error with database.
marcrausch  
#7 Posted : Tuesday, June 4, 2013 11:55:59 PM(UTC)
marcrausch

Rank: Newbie

Groups: Registered
Joined: 6/4/2013(UTC)
Posts: 0

Hi Ivan

Had a look, seems you right I got this error message:

ErrorCode
-2147467259

Description
desc=[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified;source=Microsoft OLE DB Provider for ODBC Drivers;conn=False;sql=SELECT * FROM EmailTest

Any advice on what I need to change?
ivan  
#8 Posted : Wednesday, June 5, 2013 4:59:29 PM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
the correct connection string is:


Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Users\Public\TestDatabase.accdb;Uid=;Pwd=;

change your code like this

oSmtp.AddHeader "X-Data-Connection", _
"Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Users\Public\TestDatabase.accdb;Uid=;Pwd=;"
ivan  
#9 Posted : Wednesday, June 5, 2013 5:01:08 PM(UTC)
ivan

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,148

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
By the way, if you still get this error, please

please download and install the following package, if your OS is x64, please install both 32 (please install 32bit at first) and 64 drivers
http://www.microsoft.com...ad/details.aspx?id=13255

Edited by user Wednesday, June 5, 2013 5:12:56 PM(UTC)  | Reason: Not specified

marcrausch  
#10 Posted : Thursday, June 6, 2013 4:28:19 AM(UTC)
marcrausch

Rank: Newbie

Groups: Registered
Joined: 6/4/2013(UTC)
Posts: 0

That worked! thank you Ivan :)
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET
This page was generated in 0.132 seconds.

EXPLORE TUTORIALS

© All Rights Reserved, AIFEI Software Limited & AdminSystem Software Limited.