Linking Access with Lotus Notes

G

Guest

Yes, set Lotus Notes as your default e mail agent and

DoCmd.SendObject acReport, stDocName, To:=' "Text" or Control here

Will send the report

I can send a full sample code if required. Snapshot is the best format but
if your recipient dosent have a2k3 you will need to send them a viewer. RTF
suffers loss of formatting.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.
 
G

Guest

Hi Mike,
I got your instructions to work - thank you!
How do I set Lotus as my default email agent?

Thanks again,

Gordy
 
G

Guest

Fire up Internet Explorer

Tools
Internet Options\Prgrams

E Mail drop down box, if you have Lotus Notes set up, you should have Lotus
Notes option to set as your default e mail.

hth

Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.
 
G

Guest

I was able to select Lotus as you advised. When I run the command, it still
wants to use Outlook. We're getting closer!
 
G

Guest

1. Is Lotus Notes active when you try and send?
2. Have you tried re-boot after setting your default e mail agent in IE

My programme dials stright to notes, it then pops up a message box asking
for format to send in.

Private Sub SendEMailButton_Click()
On Error GoTo Err_SendEMailButton_Click

Dim stDocName As String
Dim StrTo As String
Dim StrSubject As String
Dim Pge As String
'Dim SentQuote As Date 'Used to set Sent Date in DB
Dim stLinkCriteria As String

StrTo = DLookup("[E_Mail_Address]", "[Tbl_Contact]", "[Contact]='" &
Forms![frm_general_enquiries]![ContactCombo95] & "'")

stDocName = "Rprt_Quote_By_E_Mail"

DoCmd.SendObject acReport, stDocName, To:=StrTo, Subject:="Our Quotation
Ref " & Me.Reference_No

Exit_SendEMailButton_Click:
Exit Sub

Err_SendEMailButton_Click:
If StrTo = "" Then
Me.Date_of_Quote.Value = ""
MsgBox "You have NO E MAIL ADDRESS to send to???????"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_SendEMailButton_Click

End Sub

I have posted my code as above, this works well, I have removed a routine to
set a sent date when the e mail is sent for recording purposes.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.
 
G

Guest

Sorry, you need to delete Me.Date_of_Quote.Value = "" out of the error trap
at the end (Residue of setting the sent date in the DB Control)
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


MikeJohnB said:
1. Is Lotus Notes active when you try and send?
2. Have you tried re-boot after setting your default e mail agent in IE

My programme dials stright to notes, it then pops up a message box asking
for format to send in.

Private Sub SendEMailButton_Click()
On Error GoTo Err_SendEMailButton_Click

Dim stDocName As String
Dim StrTo As String
Dim StrSubject As String
Dim Pge As String
'Dim SentQuote As Date 'Used to set Sent Date in DB
Dim stLinkCriteria As String

StrTo = DLookup("[E_Mail_Address]", "[Tbl_Contact]", "[Contact]='" &
Forms![frm_general_enquiries]![ContactCombo95] & "'")

stDocName = "Rprt_Quote_By_E_Mail"

DoCmd.SendObject acReport, stDocName, To:=StrTo, Subject:="Our Quotation
Ref " & Me.Reference_No

Exit_SendEMailButton_Click:
Exit Sub

Err_SendEMailButton_Click:
If StrTo = "" Then
Me.Date_of_Quote.Value = ""
MsgBox "You have NO E MAIL ADDRESS to send to???????"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_SendEMailButton_Click

End Sub

I have posted my code as above, this works well, I have removed a routine to
set a sent date when the e mail is sent for recording purposes.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


Gordy said:
I was able to select Lotus as you advised. When I run the command, it still
wants to use Outlook. We're getting closer!
Click to expand...
Click to expand...
 
G

Guest

Mike, I appreciate your patience. Your probably getting sick of me. Btw, I am
not yet a programmer. I am taking a class in April. So I am very much a
novice.

Now, I am getting Lotus to pop but I am getting an error from Notes:
File does not exsist: mail\gwheeler.nsf
and
Lotus Notes Mailman Error
Notes Error - file does not exist.

Thank you, Thank you. I hope your having fun anyway!

MikeJohnB said:
1. Is Lotus Notes active when you try and send?
2. Have you tried re-boot after setting your default e mail agent in IE

My programme dials stright to notes, it then pops up a message box asking
for format to send in.

Private Sub SendEMailButton_Click()
On Error GoTo Err_SendEMailButton_Click

Dim stDocName As String
Dim StrTo As String
Dim StrSubject As String
Dim Pge As String
'Dim SentQuote As Date 'Used to set Sent Date in DB
Dim stLinkCriteria As String

StrTo = DLookup("[E_Mail_Address]", "[Tbl_Contact]", "[Contact]='" &
Forms![frm_general_enquiries]![ContactCombo95] & "'")

stDocName = "Rprt_Quote_By_E_Mail"

DoCmd.SendObject acReport, stDocName, To:=StrTo, Subject:="Our Quotation
Ref " & Me.Reference_No

Exit_SendEMailButton_Click:
Exit Sub

Err_SendEMailButton_Click:
If StrTo = "" Then
Me.Date_of_Quote.Value = ""
MsgBox "You have NO E MAIL ADDRESS to send to???????"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_SendEMailButton_Click

End Sub

I have posted my code as above, this works well, I have removed a routine to
set a sent date when the e mail is sent for recording purposes.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


Gordy said:
I was able to select Lotus as you advised. When I run the command, it still
wants to use Outlook. We're getting closer!
Click to expand...
Click to expand...
 
G

Guest

I really don't mind giving assistance when I can and I appreciate the Novice
aspect, I am trying to learn PHP and HTML at the moment, much prefer Access,
much easier to programme.

However, I am now struggling, the .NSF is a lotus notes file extension. Is
lotus notes set up on your machine for sending e mails?

Ok, that was a silly question wasn't it? But I ask because you had outlook
as your default e mail agent. Actually setting up e mail agents is not one of
my strengths.

What happens when you send an e mail from Lotus Notes? Does it go without a
hitch? try sending me a note to name @Hotmail.com lets see?

I also use the same code at home but my default e mail is Outlook Express,
the code works to that set as well so you see I have hit the brick wall on
this one?

Hope your having fun programming also, I enjoy solving problems in Access
but my wife don't appreciate the time spent LOL.

Let me know how you get on with sending e mail from Lotus.

mikejohnb@
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


Gordy said:
Mike, I appreciate your patience. Your probably getting sick of me. Btw, I am
not yet a programmer. I am taking a class in April. So I am very much a
novice.

Now, I am getting Lotus to pop but I am getting an error from Notes:
File does not exsist: mail\gwheeler.nsf
and
Lotus Notes Mailman Error
Notes Error - file does not exist.

Thank you, Thank you. I hope your having fun anyway!

MikeJohnB said:
1. Is Lotus Notes active when you try and send?
2. Have you tried re-boot after setting your default e mail agent in IE

My programme dials stright to notes, it then pops up a message box asking
for format to send in.

Private Sub SendEMailButton_Click()
On Error GoTo Err_SendEMailButton_Click

Dim stDocName As String
Dim StrTo As String
Dim StrSubject As String
Dim Pge As String
'Dim SentQuote As Date 'Used to set Sent Date in DB
Dim stLinkCriteria As String

StrTo = DLookup("[E_Mail_Address]", "[Tbl_Contact]", "[Contact]='" &
Forms![frm_general_enquiries]![ContactCombo95] & "'")

stDocName = "Rprt_Quote_By_E_Mail"

DoCmd.SendObject acReport, stDocName, To:=StrTo, Subject:="Our Quotation
Ref " & Me.Reference_No

Exit_SendEMailButton_Click:
Exit Sub

Err_SendEMailButton_Click:
If StrTo = "" Then
Me.Date_of_Quote.Value = ""
MsgBox "You have NO E MAIL ADDRESS to send to???????"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_SendEMailButton_Click

End Sub

I have posted my code as above, this works well, I have removed a routine to
set a sent date when the e mail is sent for recording purposes.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


Gordy said:
I was able to select Lotus as you advised. When I run the command, it still
wants to use Outlook. We're getting closer!

:

Fire up Internet Explorer

Tools
Internet Options\Prgrams

E Mail drop down box, if you have Lotus Notes set up, you should have Lotus
Notes option to set as your default e mail.

hth

Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


:

Hi Mike,
I got your instructions to work - thank you!
How do I set Lotus as my default email agent?

Thanks again,

Gordy

:

Yes, set Lotus Notes as your default e mail agent and

DoCmd.SendObject acReport, stDocName, To:=' "Text" or Control here

Will send the report

I can send a full sample code if required. Snapshot is the best format but
if your recipient dosent have a2k3 you will need to send them a viewer. RTF
suffers loss of formatting.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


:

Can Access be linked to Lotus notes to be able to send reports via email?

Thank you
Click to expand...
Click to expand...
Click to expand...
 
G

Guest

Hi again Gordy, glad to hear you have got the code to work, if you want to
set up the calenders for date inputs, let me know and I will point you in the
right direction.

Glad to have been able to help on this one.

Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


MikeJohnB said:
I really don't mind giving assistance when I can and I appreciate the Novice
aspect, I am trying to learn PHP and HTML at the moment, much prefer Access,
much easier to programme.

However, I am now struggling, the .NSF is a lotus notes file extension. Is
lotus notes set up on your machine for sending e mails?

Ok, that was a silly question wasn't it? But I ask because you had outlook
as your default e mail agent. Actually setting up e mail agents is not one of
my strengths.

What happens when you send an e mail from Lotus Notes? Does it go without a
hitch? try sending me a note to name @Hotmail.com lets see?

I also use the same code at home but my default e mail is Outlook Express,
the code works to that set as well so you see I have hit the brick wall on
this one?

Hope your having fun programming also, I enjoy solving problems in Access
but my wife don't appreciate the time spent LOL.

Let me know how you get on with sending e mail from Lotus.

mikejohnb@
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


Gordy said:
Mike, I appreciate your patience. Your probably getting sick of me. Btw, I am
not yet a programmer. I am taking a class in April. So I am very much a
novice.

Now, I am getting Lotus to pop but I am getting an error from Notes:
File does not exsist: mail\gwheeler.nsf
and
Lotus Notes Mailman Error
Notes Error - file does not exist.

Thank you, Thank you. I hope your having fun anyway!

MikeJohnB said:
1. Is Lotus Notes active when you try and send?
2. Have you tried re-boot after setting your default e mail agent in IE

My programme dials stright to notes, it then pops up a message box asking
for format to send in.

Private Sub SendEMailButton_Click()
On Error GoTo Err_SendEMailButton_Click

Dim stDocName As String
Dim StrTo As String
Dim StrSubject As String
Dim Pge As String
'Dim SentQuote As Date 'Used to set Sent Date in DB
Dim stLinkCriteria As String

StrTo = DLookup("[E_Mail_Address]", "[Tbl_Contact]", "[Contact]='" &
Forms![frm_general_enquiries]![ContactCombo95] & "'")

stDocName = "Rprt_Quote_By_E_Mail"

DoCmd.SendObject acReport, stDocName, To:=StrTo, Subject:="Our Quotation
Ref " & Me.Reference_No

Exit_SendEMailButton_Click:
Exit Sub

Err_SendEMailButton_Click:
If StrTo = "" Then
Me.Date_of_Quote.Value = ""
MsgBox "You have NO E MAIL ADDRESS to send to???????"
Exit Sub
End If
MsgBox Err.Description
Resume Exit_SendEMailButton_Click

End Sub

I have posted my code as above, this works well, I have removed a routine to
set a sent date when the e mail is sent for recording purposes.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


:

I was able to select Lotus as you advised. When I run the command, it still
wants to use Outlook. We're getting closer!

:

Fire up Internet Explorer

Tools
Internet Options\Prgrams

E Mail drop down box, if you have Lotus Notes set up, you should have Lotus
Notes option to set as your default e mail.

hth

Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


:

Hi Mike,
I got your instructions to work - thank you!
How do I set Lotus as my default email agent?

Thanks again,

Gordy

:

Yes, set Lotus Notes as your default e mail agent and

DoCmd.SendObject acReport, stDocName, To:=' "Text" or Control here

Will send the report

I can send a full sample code if required. Snapshot is the best format but
if your recipient dosent have a2k3 you will need to send them a viewer. RTF
suffers loss of formatting.

hth Mike B
--
An Engineers Prayer:
At the very end of the day,
when all else fails,
you have tried all,
you have shouted at and blamed the innocent,
and asked everyone you know,

READ THE INSTRUCTION MANUAL.


:

Can Access be linked to Lotus notes to be able to send reports via email?

Thank you
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can you link Lotus Notes docs in MS Access? 1
lotus notes waits for me to send email? 1
ODBC 3
Lotus notes attachment opening return receipt 0
Email form as PDF using Lotus Notes 6
Incomplete Records with an ODBC Linked Table? 1
lotus notes email 4
Access/Lotus Notes 2

Top