Here we go- I haven't tried it of course, but it sounds good...
-----Original Message-----
From: ext Richard Wise [mailto:Richard.Wise@raymarine.com]
Sent: 14 May, 2003 7:09 AM
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Put this into a formula box to send the keystroke 'y' when the warning appears - it's not pretty, but it will dismiss the dialog box...
set s = CreateObject("WScript.Shell");
s.sendkeys("y");
-----Original Message-----
From: KOHLER,ADAM (A-Scotland,ex1) [mailto:adam_kohler@agilent.com]
Sent: 14 May 2003 09:35
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Shawn,
Thanks for this. Well it does send the email but that outlook pop-up warning of a possible virus still appears and stops the program until you press Yes. If you press NO then the program crashes.
Adam Kohler
Software Test
EPSG
Agilent Technologies
Scotland
tel net 313 2485
t +44 131 331 7485
e adam_kohler@agilent.com
-----Original Message-----
From: Shawn Fessenden [mailto:shawn@testech-ltd.com]
Sent: Wed 14 May 2003 09:01
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Adam -
Yes, Kevyn is correct. MAPI is the underlying Messaging API. If you have
almost any mail client installed at all, you'll be able to access MAPI. Look
under ActiveX Automation References for Microsoft CDO 1.x Library or
Microsoft CDO for Exchange. CDO stands for "Collaboration Data Objects". The
advantage is you loose the Outlook dependency.
All respect to Mark, but I'd kind of advise staying away from the MAPI
control and the VEE example program. It's too crowded and confusing. All you
need is a reference to a MAPI session and you can do just about any kind of
emailing you want with just a few statements. There's no need for a MAPI
control and a message control, you don't have to fill everything out, etc.
Enter these statements in a Formula object (or open the attached):
Set s = CreateObject("MAPI.Session");
s.Logon;
Set m = s.Outbox.Messages.Add("RE: Test", "Yup, it works.");
m.Recipients.Add("Shawn", "SMTP:shawn@testech-ltd.com", 1);
m.Send;
s.DeliverNow;
s.Logoff;
Stick "s" and "m" pins on the right side, press Ctrl-G and, provided you're
connected to the internet, "you've sent mail". That's all there is too it.
The Subject and body of the message are the "Subject" and "Text" properties
of the Message object, respectively. The only thing that's a little funky is
the Add method of the Recipients collection. You have to prefix the
addressee with "SMTP:", and the third parameter (Type) is:
CdoTo = 1
CdoCc = 2
CdoBcc = 3
For some reason, VEE can't find these named constants (I've no idea why).
To avoid the "logon" dialog, all you have to do is logon once and get the
Name property of the Session object. Save it somewhere, then logon with:
s.Logon(sName);
The object model is very similar to Outlook's. I just converted a load of VB
stuff from Outlook to MAPI and it was a snap. It's very easy to work with
and I don't think you'll have much of a hard time. Here's a few VB things
you can adapt to VEE to get you started. This is from Form_Load:
' Verify MAPI.
lErr = RegOpenKeyEx(HKCR, "MAPI.Session", 0, KEY_READ, hKey)
If lErr <> 0 Then
Call MsgBox("Windows Messaging is not installed", vbOKOnly + vbCritical,
"MAPI Error")
Unload Me
Exit Sub
End If
Call RegCloseKey(hKey)
' Get default profile.
sProfile = GetSetting(App.Title, "Settings", "Profile")
' Create session & log on.
Set m_session = New MAPI.Session
Call m_session.Logon(sProfile)
Here's that bit about saving the profile name (from Form_Unload):
' Save profile.
Call SaveSetting(App.Title, "Settings", "Profile", m_session.Name)
' Logoff & kill session.
Call m_session.Logoff
Set m_session = Nothing
Using MAPI is just as easy:
' Get Inbox & messages.
Set oInbox = m_session.Inbox
Set oMsgs = oInbox.Messages
You can set up a mail profile specifically for your test program - you don't
have to use one that's already there.
-SHAWN-
---
You are currently subscribed to vrf as: Richard.Wise@raymarine.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
---
You are currently subscribed to vrf as: Kevin.Hasselquist@nokia.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
---
You are currently subscribed to vrf as: rsb@soco.agilent.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
-----Original Message-----
From: ext Richard Wise [mailto:Richard.Wise@raymarine.com]
Sent: 14 May, 2003 7:09 AM
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Put this into a formula box to send the keystroke 'y' when the warning appears - it's not pretty, but it will dismiss the dialog box...
set s = CreateObject("WScript.Shell");
s.sendkeys("y");
-----Original Message-----
From: KOHLER,ADAM (A-Scotland,ex1) [mailto:adam_kohler@agilent.com]
Sent: 14 May 2003 09:35
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Shawn,
Thanks for this. Well it does send the email but that outlook pop-up warning of a possible virus still appears and stops the program until you press Yes. If you press NO then the program crashes.
Adam Kohler
Software Test
EPSG
Agilent Technologies
Scotland
tel net 313 2485
t +44 131 331 7485
e adam_kohler@agilent.com
-----Original Message-----
From: Shawn Fessenden [mailto:shawn@testech-ltd.com]
Sent: Wed 14 May 2003 09:01
To: VEE vrf
Subject: [vrf] RE: Sending email with outlook from VEE
Adam -
Yes, Kevyn is correct. MAPI is the underlying Messaging API. If you have
almost any mail client installed at all, you'll be able to access MAPI. Look
under ActiveX Automation References for Microsoft CDO 1.x Library or
Microsoft CDO for Exchange. CDO stands for "Collaboration Data Objects". The
advantage is you loose the Outlook dependency.
All respect to Mark, but I'd kind of advise staying away from the MAPI
control and the VEE example program. It's too crowded and confusing. All you
need is a reference to a MAPI session and you can do just about any kind of
emailing you want with just a few statements. There's no need for a MAPI
control and a message control, you don't have to fill everything out, etc.
Enter these statements in a Formula object (or open the attached):
Set s = CreateObject("MAPI.Session");
s.Logon;
Set m = s.Outbox.Messages.Add("RE: Test", "Yup, it works.");
m.Recipients.Add("Shawn", "SMTP:shawn@testech-ltd.com", 1);
m.Send;
s.DeliverNow;
s.Logoff;
Stick "s" and "m" pins on the right side, press Ctrl-G and, provided you're
connected to the internet, "you've sent mail". That's all there is too it.
The Subject and body of the message are the "Subject" and "Text" properties
of the Message object, respectively. The only thing that's a little funky is
the Add method of the Recipients collection. You have to prefix the
addressee with "SMTP:", and the third parameter (Type) is:
CdoTo = 1
CdoCc = 2
CdoBcc = 3
For some reason, VEE can't find these named constants (I've no idea why).
To avoid the "logon" dialog, all you have to do is logon once and get the
Name property of the Session object. Save it somewhere, then logon with:
s.Logon(sName);
The object model is very similar to Outlook's. I just converted a load of VB
stuff from Outlook to MAPI and it was a snap. It's very easy to work with
and I don't think you'll have much of a hard time. Here's a few VB things
you can adapt to VEE to get you started. This is from Form_Load:
' Verify MAPI.
lErr = RegOpenKeyEx(HKCR, "MAPI.Session", 0, KEY_READ, hKey)
If lErr <> 0 Then
Call MsgBox("Windows Messaging is not installed", vbOKOnly + vbCritical,
"MAPI Error")
Unload Me
Exit Sub
End If
Call RegCloseKey(hKey)
' Get default profile.
sProfile = GetSetting(App.Title, "Settings", "Profile")
' Create session & log on.
Set m_session = New MAPI.Session
Call m_session.Logon(sProfile)
Here's that bit about saving the profile name (from Form_Unload):
' Save profile.
Call SaveSetting(App.Title, "Settings", "Profile", m_session.Name)
' Logoff & kill session.
Call m_session.Logoff
Set m_session = Nothing
Using MAPI is just as easy:
' Get Inbox & messages.
Set oInbox = m_session.Inbox
Set oMsgs = oInbox.Messages
You can set up a mail profile specifically for your test program - you don't
have to use one that's already there.
-SHAWN-
---
You are currently subscribed to vrf as: Richard.Wise@raymarine.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
---
You are currently subscribed to vrf as: Kevin.Hasselquist@nokia.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
---
You are currently subscribed to vrf as: rsb@soco.agilent.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".
allow you to send email directly through your mail server
-----Original Message-----
From: KOHLER,ADAM (A-Scotland,ex1) [mailto:adam_kohler@agilent.com]
Sent: Tuesday, May 13, 2003 8:41 AM
To: VEE vrf
Subject: [vrf] Sending email with outlook from VEE
I am trying to send an email automatically from a VEE program.
Generating the email is ok and outlook starts.
When outlook tries to send the email a pop-up appears warning that an
application is trying to send an email on my behalf. The outlook security
update catches this and thinks that it is possibly a virus. The pop-up
gives the option YES, NO or cancel. If I click Yes the email is sent
correctly.
The problem is how do I get rid of the pop-up and tell outlook to send the
email anyway.
Adam Kohler
Software Test
EPSG
Agilent Technologies
Scotland
tel net 313 2485
t +44 131 331 7485
e adam_kohler@agilent.com
---
You are currently subscribed to vrf as: KPAIR@CMNC.COM
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to
"owner-vrf@it.lists.it.agilent.com".
---
You are currently subscribed to vrf as: rsb@soco.agilent.com
To subscribe send a blank email to "join-vrf@it.lists.it.agilent.com".
To unsubscribe send a blank email to "leave-vrf@it.lists.it.agilent.com".
To send messages to this mailing list, email "vrf@it.lists.it.agilent.com".
If you need help with the mailing list send a message to "owner-vrf@it.lists.it.agilent.com".