Hi Raymond,
I just realized that I will need to reset the value of the sender in
this program.
I have tried using
Notesdoc.From = "sender (AT) mail (DOT) com"
and
Call NotesDoc.REPLACEITEMVALUE("From", sender (AT) mail (DOT) com)
but the sender's value still has not changed.
This means when I retrieve the email from Lotus Notes, the sender is
my own email address (eg: me (AT) mail (DOT) com instead of sender (AT) mail (DOT) com).
The codes that you posted earlier sends email from the current
person's email address logged in the specific workstation, is this right?
What must I do? Please help me.
Thank you very much once again.
~Deborah
Private Sub Command1_Click()
Dim NotesSession As
Dim NotesDB As
Dim NotesDoc As
Set NotesSession = C("Notes.Notessession")
Set NotesDB = NotesSession.GETDATABASE("", "names.nsf")
Set NotesDoc = NotesDB.CREATEDCUMENT()
With NotesDoc
.Form = "memo"
'Sender is set to sender (AT) mail (DOT) com
'but cannot work (?)
.From = "sender (AT) mail (DOT) com"
'Sender is also set to sender (AT) mail (DOT) com
'but cannot work (?)
'Call .REPLACEITEMVALUE ("From", sender (AT) mail (DOT) com)
.SendTo = "recipient (AT) mail (DOT) com"
.CopyTo = "cc_recipient (AT) mail (DOT) com"
.Subject = "Email Subject Heading"
.Body = " Email message goes here "
Call .SEND(False)
End With
MsgBox "Message sent.", vbInformation
Set NotesDoc = Nothing
Set NotesDB = Nothing
Set NotesSession = Nothing
End Sub
In visualbasic6programming (AT) yahoogroups (DOT) com, raymond_c_chow@a wrote:
Hi dt_aiying,
When you installed Lotus Notes, it should register or notify Windows
that
new automation classes are now available. This means that when you
select
"Project" and then "References" in VB, you should see them listed
in the
"Available References" list box. If you don't see the "Lotus Notes
Automation Classes" in the list box, you can use the "Browse"
button to
find it yourself. In my system, the Lotus Notes automation classes
is in
"C:\Notes\notes32.tlb".
Hope this helps
Raymond
"dt_aiying"
<dt_aiying@y
Sent by:
visualbasic6programming@yaho
ogroups.com
12/22/2005 04:55 AM
Dear Raymond,
Thanks very much for the help given
I'm sorry, I'm still scratching my head over the LN automation classes
What are they and how are they used?
Where can I obtain them?
Plus, do I need to refer to any other mail objects when I code this out?
Many thanks once again
In visualbasic6programming (AT) yahoogroups (DOT) com, raymond_c_chow@a
wrote:
--
Hi dt_aiying,
If you just want to send mail using Lotus Notes, you can do
something like
this:
Private Sub Command1_Click()
'Remember to add reference to Lotus Notes Automation Classes
Dim NotesSession As
Dim NotesDB As
Dim NotesDoc As
Set NotesSession = C("Notes.Notessession")
Set NotesDB = NotesSession.GETDATABASE("", "names.nsf")
Set NotesDoc = NotesDB.CREATEDCUMENT()
With NotesDoc
.Form = "memo"
.SendTo = Text1.Text
.CopyTo = Text2.Text
.Subject = Text3.Text
.Body = Text4.Text
Call .SEND(False)
End With
MsgBox "Message sent.", vbInformation
Set NotesDoc = Nothing
Set NotesDB = Nothing
Set NotesSession = Nothing
End Sub
Hope this helps
Raymond
--
"dt_aiying"
<dt_aiying@y>
Sent by:
visualbasic6programming@yaho
ogroups.com
12/08/2005 08:04 PM
--
Thanks for ALL your help, guys Means so much to me
I might have probably forgotten to inform you that the e-mail used in
my company here is Lotus Notes So some of the solutions that you
have mentioned for may not be applicable, I assume
Anyway, I'm still looking into all the solutions that you've helped me
with I'll try my best with your help given
Thanks once again!
Yahoo! Groups Sponsor
Get Bzzzy! (real tools to help you find a job). Welcome to the Sweet Life.
Yahoo! Groups Links
<*To visit your group on the web, go to:
<*To unsubscribe from this group, send an email to:
@yahoogroups.com
<*Your use of Yahoo! Groups is subject to: