Outlook block

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi

Is it possible to write vb.net code around outlook 2000 dlls and then use
the code on ol2002 machines to send emails and bypass ol 2002 email block?

Thanks

Regards
 
Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
 
Thanks Helmut. BTW, a copy of my redemption project should be in your inbox.
Was too large to post here.

Thanks again.

Regards


Helmut Obertanner said:
Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


John said:
Hi

Is it possible to write vb.net code around outlook 2000 dlls and then use
the code on ol2002 machines to send emails and bypass ol 2002 email block?

Thanks

Regards
Click to expand...
Click to expand...
 
please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

John said:
Thanks Helmut. BTW, a copy of my redemption project should be in your inbox.
Was too large to post here.

Thanks again.

Regards


Helmut Obertanner said:
Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


John said:
Hi

Is it possible to write vb.net code around outlook 2000 dlls and then use
the code on ol2002 machines to send emails and bypass ol 2002 email block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Done, twice. Also received the two test messages.

Regards

Helmut Obertanner said:
please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

John said:
Thanks Helmut. BTW, a copy of my redemption project should be in your inbox.
Was too large to post here.

Thanks again.

Regards


Helmut Obertanner said:
Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and
Click to expand...
then
use
the code on ol2002 machines to send emails and bypass ol 2002 email block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
So for the Newsgroup:

It worked on my system.
I added new lines of code for save the item before send.
When i call SafeItem.Send, the Mail is in my Draftsfolder until i click
send/receive.
so I added a line to start synchronizing.

PLease test it first with a already running Outlook instance,
so you can see if there is a Problem with objNS.Logon....

here goes the code:

Dim objApp As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objSafeItem As Redemption.SafeMailItem

Dim objMailItem As Outlook.MailItem

objApp = New Outlook.Application

objNS = objApp.GetNamespace("MAPI")

objNS.Logon("Outlook", "", False, False)

objMailItem = objApp.CreateItem(OlItemType.olMailItem)

objSafeItem = New SafeMailItem

objSafeItem.Item = objMailItem

objSafeItem.Recipients.Add([email protected])

objMailItem.Subject = "TestMessage"

objSafeItem.Body = "This message is sent from Redemption...."

'the new save

objMailItem.Save()

objMailItem.To = (e-mail address removed)

objSafeItem.Send()

objNS.SyncObjects.Item(1).Start()

objSafeItem = Nothing

objMailItem = Nothing

objNS.Logoff()

objNS = Nothing

objApp = Nothing

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
John said:
Done, twice. Also received the two test messages.

Regards

Helmut Obertanner said:
please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

John said:
Thanks Helmut. BTW, a copy of my redemption project should be in your inbox.
Was too large to post here.

Thanks again.

Regards


Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and then
use
the code on ol2002 machines to send emails and bypass ol 2002 email
block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Hi

I have tried it with outlook running. No matter what I do, the mail that is
saved in draft has a blank "To" field.

Thanks

Regards


Helmut Obertanner said:
So for the Newsgroup:

It worked on my system.
I added new lines of code for save the item before send.
When i call SafeItem.Send, the Mail is in my Draftsfolder until i click
send/receive.
so I added a line to start synchronizing.

PLease test it first with a already running Outlook instance,
so you can see if there is a Problem with objNS.Logon....

here goes the code:

Dim objApp As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objSafeItem As Redemption.SafeMailItem

Dim objMailItem As Outlook.MailItem

objApp = New Outlook.Application

objNS = objApp.GetNamespace("MAPI")

objNS.Logon("Outlook", "", False, False)

objMailItem = objApp.CreateItem(OlItemType.olMailItem)

objSafeItem = New SafeMailItem

objSafeItem.Item = objMailItem

objSafeItem.Recipients.Add([email protected])

objMailItem.Subject = "TestMessage"

objSafeItem.Body = "This message is sent from Redemption...."

'the new save

objMailItem.Save()

objMailItem.To = (e-mail address removed)

objSafeItem.Send()

objNS.SyncObjects.Item(1).Start()

objSafeItem = Nothing

objMailItem = Nothing

objNS.Logoff()

objNS = Nothing

objApp = Nothing

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
John said:
Done, twice. Also received the two test messages.

Regards

Helmut Obertanner said:
please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

Thanks Helmut. BTW, a copy of my redemption project should be in your
inbox.
Was too large to post here.

Thanks again.

Regards


Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the
Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and then
use
the code on ol2002 machines to send emails and bypass ol 2002 email
block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Hi

OK, now the "To" field has a value and the message is saved in draft but I
am getting this error on send;

Unhandled Exception: System.Runtime.InteropServices.COMException
(0x8000FFFF): Catastrophic failure
at Redemption.SafeMailItemClass.Send()

The code is as follows;

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objSafeItem As Redemption.SafeMailItem
Dim objMailItem As Outlook.MailItem
objApp = New Outlook.Application
objNS = objApp.GetNamespace("MAPI")
objNS.Logon("Outlook", "", False, False)
objMailItem = objApp.CreateItem(OlItemType.olMailItem)
objSafeItem = New SafeMailItem
objSafeItem.Item = objMailItem
objSafeItem.Recipients.Add([email protected])
objMailItem.Subject = "TestMessage"
objSafeItem.Body = "This message is sent from Redemption...."
objMailItem.To = "(e-mail address removed)"
objMailItem.Save()
objSafeItem.Recipients.ResolveAll()

objSafeItem.Send() '<=== Errror here

objNS.SyncObjects.Item(1).Start()
objSafeItem = Nothing
objMailItem = Nothing
objNS.Logoff()
objNS = Nothing
objApp = Nothing

Helmut Obertanner said:
So for the Newsgroup:

It worked on my system.
I added new lines of code for save the item before send.
When i call SafeItem.Send, the Mail is in my Draftsfolder until i click
send/receive.
so I added a line to start synchronizing.

PLease test it first with a already running Outlook instance,
so you can see if there is a Problem with objNS.Logon....

here goes the code:

Dim objApp As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objSafeItem As Redemption.SafeMailItem

Dim objMailItem As Outlook.MailItem

objApp = New Outlook.Application

objNS = objApp.GetNamespace("MAPI")

objNS.Logon("Outlook", "", False, False)

objMailItem = objApp.CreateItem(OlItemType.olMailItem)

objSafeItem = New SafeMailItem

objSafeItem.Item = objMailItem

objSafeItem.Recipients.Add([email protected])

objMailItem.Subject = "TestMessage"

objSafeItem.Body = "This message is sent from Redemption...."

'the new save

objMailItem.Save()

objMailItem.To = (e-mail address removed)

objSafeItem.Send()

objNS.SyncObjects.Item(1).Start()

objSafeItem = Nothing

objMailItem = Nothing

objNS.Logoff()

objNS = Nothing

objApp = Nothing

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
John said:
Done, twice. Also received the two test messages.

Regards

Helmut Obertanner said:
please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

Thanks Helmut. BTW, a copy of my redemption project should be in your
inbox.
Was too large to post here.

Thanks again.

Regards


Hello,

yes it is, you can write an Outlook Add-In and use the Redemption from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the
Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and then
use
the code on ol2002 machines to send emails and bypass ol 2002 email
block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Do you have third-Party Tools like Norton or e.g. that could block this
behavior ?
Have you asked Mr. Strebleckenko if he knows that problem ?
For Test try to disable the anti-virus scanner.
Also try to install a fresh WXP and OlXP and try it here to determine if
there's a problem with your installation.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


John said:
Hi

OK, now the "To" field has a value and the message is saved in draft but I
am getting this error on send;

Unhandled Exception: System.Runtime.InteropServices.COMException
(0x8000FFFF): Catastrophic failure
at Redemption.SafeMailItemClass.Send()

The code is as follows;

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objSafeItem As Redemption.SafeMailItem
Dim objMailItem As Outlook.MailItem
objApp = New Outlook.Application
objNS = objApp.GetNamespace("MAPI")
objNS.Logon("Outlook", "", False, False)
objMailItem = objApp.CreateItem(OlItemType.olMailItem)
objSafeItem = New SafeMailItem
objSafeItem.Item = objMailItem
objSafeItem.Recipients.Add([email protected])
objMailItem.Subject = "TestMessage"
objSafeItem.Body = "This message is sent from Redemption...."
objMailItem.To = "(e-mail address removed)"
objMailItem.Save()
objSafeItem.Recipients.ResolveAll()

objSafeItem.Send() '<=== Errror here

objNS.SyncObjects.Item(1).Start()
objSafeItem = Nothing
objMailItem = Nothing
objNS.Logoff()
objNS = Nothing
objApp = Nothing

Helmut Obertanner said:
So for the Newsgroup:

It worked on my system.
I added new lines of code for save the item before send.
When i call SafeItem.Send, the Mail is in my Draftsfolder until i click
send/receive.
so I added a line to start synchronizing.

PLease test it first with a already running Outlook instance,
so you can see if there is a Problem with objNS.Logon....

here goes the code:

Dim objApp As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objSafeItem As Redemption.SafeMailItem

Dim objMailItem As Outlook.MailItem

objApp = New Outlook.Application

objNS = objApp.GetNamespace("MAPI")

objNS.Logon("Outlook", "", False, False)

objMailItem = objApp.CreateItem(OlItemType.olMailItem)

objSafeItem = New SafeMailItem

objSafeItem.Item = objMailItem

objSafeItem.Recipients.Add([email protected])

objMailItem.Subject = "TestMessage"

objSafeItem.Body = "This message is sent from Redemption...."

'the new save

objMailItem.Save()

objMailItem.To = (e-mail address removed)

objSafeItem.Send()

objNS.SyncObjects.Item(1).Start()

objSafeItem = Nothing

objMailItem = Nothing

objNS.Logoff()

objNS = Nothing

objApp = Nothing

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
John said:
Done, twice. Also received the two test messages.

Regards

please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

Thanks Helmut. BTW, a copy of my redemption project should be in your
inbox.
Was too large to post here.

Thanks again.

Regards


Hello,

yes it is, you can write an Outlook Add-In and use the
Click to expand...
Redemption
from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the
Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and
then
use
the code on ol2002 machines to send emails and bypass ol 2002 email
block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Yes, he is looking into it as well.

Will do the reinstall.

Thanks

Regards


Helmut Obertanner said:
Do you have third-Party Tools like Norton or e.g. that could block this
behavior ?
Have you asked Mr. Strebleckenko if he knows that problem ?
For Test try to disable the anti-virus scanner.
Also try to install a fresh WXP and OlXP and try it here to determine if
there's a problem with your installation.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


John said:
Hi

OK, now the "To" field has a value and the message is saved in draft but I
am getting this error on send;

Unhandled Exception: System.Runtime.InteropServices.COMException
(0x8000FFFF): Catastrophic failure
at Redemption.SafeMailItemClass.Send()

The code is as follows;

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objSafeItem As Redemption.SafeMailItem
Dim objMailItem As Outlook.MailItem
objApp = New Outlook.Application
objNS = objApp.GetNamespace("MAPI")
objNS.Logon("Outlook", "", False, False)
objMailItem = objApp.CreateItem(OlItemType.olMailItem)
objSafeItem = New SafeMailItem
objSafeItem.Item = objMailItem
objSafeItem.Recipients.Add([email protected])
objMailItem.Subject = "TestMessage"
objSafeItem.Body = "This message is sent from Redemption...."
objMailItem.To = "(e-mail address removed)"
objMailItem.Save()
objSafeItem.Recipients.ResolveAll()

objSafeItem.Send() '<=== Errror here

objNS.SyncObjects.Item(1).Start()
objSafeItem = Nothing
objMailItem = Nothing
objNS.Logoff()
objNS = Nothing
objApp = Nothing

Helmut Obertanner said:
So for the Newsgroup:

It worked on my system.
I added new lines of code for save the item before send.
When i call SafeItem.Send, the Mail is in my Draftsfolder until i click
send/receive.
so I added a line to start synchronizing.

PLease test it first with a already running Outlook instance,
so you can see if there is a Problem with objNS.Logon....

here goes the code:

Dim objApp As Outlook.Application

Dim objNS As Outlook.NameSpace

Dim objSafeItem As Redemption.SafeMailItem

Dim objMailItem As Outlook.MailItem

objApp = New Outlook.Application

objNS = objApp.GetNamespace("MAPI")

objNS.Logon("Outlook", "", False, False)

objMailItem = objApp.CreateItem(OlItemType.olMailItem)

objSafeItem = New SafeMailItem

objSafeItem.Item = objMailItem

objSafeItem.Recipients.Add([email protected])

objMailItem.Subject = "TestMessage"

objSafeItem.Body = "This message is sent from Redemption...."

'the new save

objMailItem.Save()

objMailItem.To = (e-mail address removed)

objSafeItem.Send()

objNS.SyncObjects.Item(1).Start()

objSafeItem = Nothing

objMailItem = Nothing

objNS.Logoff()

objNS = Nothing

objApp = Nothing

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]
Done, twice. Also received the two test messages.

Regards

please send it to [flash at x4u dot de]
i'm not at work now...

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]

Thanks Helmut. BTW, a copy of my redemption project should be in your
inbox.
Was too large to post here.

Thanks again.

Regards


Hello,

yes it is, you can write an Outlook Add-In and use the Redemption
from
www.dimastr.com
If Outlook is in a Exchange environment, you could use the
Administrative
Forms to enabled the dll to bypass the security block.

--
regards,
Helmut Obertanner
DATALOG Software AG
http://www.datalog.de
[obertanner at datalog dot de]


Hi

Is it possible to write vb.net code around outlook 2000 dlls and
then
use
the code on ol2002 machines to send emails and bypass ol 2002
email
block?

Thanks

Regards
Click to expand...
Click to expand...
Click to expand...
 
Back
Top