[VB+Outlook] De beveiliging op item.send uitschakelen.

[sebastius]

Ik wil vanuit m'n VB6 programma meetgegevens per email (dmv Outlook2003) versturen. Maar ik loop tegen een subtiel probleem aan, namelijk dat Microsoft een beveiliging heeft ingebouwd (Iets probeert iets te versturen, weet je zeker dat dat goed is?). Dat is niet handig. Ik snap dat voor die smerige macro virusjes dat het een hele fijne beveiliging is, maar ik wil het voor deze PC lekker uitschakelen.

Ik heb de Outlook help doorgespit, MSDN doorgespit (en daar zeggen ze dat het niet kan), misschien weet iemand nog iets handigs, of een emailprogramma dat vanuit VB kan worden aangestuurd, en zonder gezeur email kan maken.

code:

Dim ol2003 As New Outlook.Application

Private Sub Command1_Click()
Dim email As Outlook.MailItem
Set ol2003 = CreateObject("Outlook.Application")
Set email = ol2003.CreateItem(olMailItem)

    strBody = "Test Email"
    email.Subject = "SUBJECT TEST"
    email.To = "[e-mail]"
    email.Body = strBody
    email.Send

Set email = Nothing
Set ol2003 = Nothing
End Sub

[elevator]

Misschien kan je hier wat mee: beveiliging pop-up outlook bij synchroniseren - en dan met name: http://www.dimastr.com/redemption/ ?

[onkl]

In Outlook zelf is dat niet op te lossen.
Er bestaan wel (freeware) programma's en dll's om hier omheen te werken.
Ik heb zelf goede ervaring gehad met Redemption, die kan je aanstreken alsof je outlook aangeeft en port het door naar Outlook, met wat aanvullingen.

[pistole]

Als het je toch gaat om mail versturen en geen specifieke Outlook / MAPI functionaliteit, waarom gebruik je dan niet iets als aspemail (www.aspemail.com) of - desnoods - CDO om mail te versturen?