×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Paradox 9 to Lotus Notes (6.5) MAPI

Paradox 9 to Lotus Notes (6.5) MAPI

Paradox 9 to Lotus Notes (6.5) MAPI

(OP)
Hello,

Yes, this old chestnut again.  Using the following code :

var
   m Mail
endVar

if m.logonDlg() then
   m.addAddress("martin@arenig.co.uk")
   m.setSubject("test email")
   m.send()
   m.logOff()
endIf

creates a lotus notes email ok, but it stuffs everything into the email's "to" box, and also repeats the email address.

I knew this was a bad idea.

Any help appreciated.
Cheers
Martin

www.arenig.co.uk

RE: Paradox 9 to Lotus Notes (6.5) MAPI


  m.addaddress("address@domain.com")
  m.setSubject("test email")
  m.senddlg()

is what I use but not with Lotus.

Could it be the order of things?  

You may try adding

if m.logonDlg() then
  m.senddlg()
endif

and see if that works for you

Tony McGuire
Stop Rob Bennett - http://www.notrob.info
"It's not about having enough time; we have the rest of our lives.  It's about priorities."

RE: Paradox 9 to Lotus Notes (6.5) MAPI

Hello Arenig!

This I use with both Eudora and Outlook. (It is an automatic sending of a backup-file from our customers)

Var
    M Mail
    SysTC, OppTC TCursor
    fs FileSystem
    Tab Table
EndVar
DoDefault
action(DataPostRecord)
action(DataUnlockRecord)

BACKUP1.PushButton()

TNavn = "E-SYSTEM.DB"
If not SysTC.open(TNavn) then
    msgInfo(TNavn, "Kan ikke ├ąpne fil")
EndIf
TNavn = "E-OPPKO.DB"
If not OppTC.open(TNavn) then
    msgInfo(TNavn, "Kan ikke ├ąpne fil")
EndIf
EPostVedlegg = Working+"\\"+"BACKUP.PAK"
m.addAttachment(EpostVedlegg)
m.addAddress("xxx@xxx.no")
m.setSubject("Backup fra "+OppTC.Kontornavn)
m.setMessage("Autosendt backup")
m.LogonDlg()
m.Send()

Pardon the norwegian in the code ...

With regards
safirlaila

RE: Paradox 9 to Lotus Notes (6.5) MAPI

(OP)
Thanks for your answers Tony and Safirlaila.

I already have no problem making it all work with Outlook express.  

But Lotus Notes is such a quirky package it's a wonder anything works with it.  I tried mixing up the order of things as Tony suggested, and there's not much else to try.

The following piece of code...

var
  m    mail
endVar

m.addAddress("xxx@abc.co.uk")
m.setSubject("MESSAGESUBJECTTEXT")
m.setMessage("MessageBodyText")
m.LogonDlg()
m.Send()

results in a To: box which looks like this :

To: xxx@abc.co.ukMessageBodyTextxxx@abc.co.uk

The subject is in there ok but no message text.

Oh well! Try something else.
Thanks anyway
Regards

Martin

www.arenig.co.uk

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close