Melding nieuwe e-mail op Dreambox

[ml2004]

Hoi,

 

Ik heb een macro gemaakt die vanuit Outlook een berichtje stuurt naar de dreambox met het onderwerp, afzender en body.

 

' ------------- Begin code ---------------

Dim WithEvents objInbox As Outlook.Items

 

Private Sub Application_Startup()

Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items

End Sub

 

Private Sub objInbox_ItemAdd(ByVal Item As Object)

If Item.Class = olMail Then

DreamIP = "x.x.x.x"

Subject = "You have new mail"

timeout = 20

Message = "Onderwerp: " & Item.Subject & "\n" _

& "Van: " & Item.SenderName & "\n" _

& "Inhoud: " & Item.Body & "\n"

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate ("http://" & DreamIP & "/cgi-bin/xmessage?timeout=" & timeout & "&caption=" & Subject & "&body=" & Message)

ie.Visible = True

Do Until ie.ReadyState = 4

Loop

AppActivate ("Internet Explorer")

SendKeys "{ENTER}", 1

End If

End Sub

' ------------- Einde code ---------------

 

Je moet wel het een en ander instellen in Outlook.

 

1. Ga in Outlook naar: Extra => Macros => Visual Basic Editor. Kies daar voor Extra => Verwijzingen

Vink daar 'Microsoft Internet Controls' aan.

 

2. Je moet in Internet Explorer naar het IP-adres gaan van de Dreambox, daar inloggen en aanvinken dat je gebruikersnaam en wachtwoord onthouden moet worden. Vanuit de macro wordt namelijk alleen een 'enter' gegeven.

 

3. Zet in Outlook de macrobeveiliging op 'gemiddeld'

 

4. Kopieer bovenstaande code in 'ThisOutlookSession' en start Outlook opnieuw.

 

Groeten Marino.

[satvet]

Heel aardig, maar denk je niet dat tuxmail veel handiger is? Bovendien hoeft dan je PC niet aan EN je boudt de beveliliging op pijl.

[ml2004]

Tuurlijk, kan natuurlijk ook <img src="/forums/images/graemlins/wink.gif" alt="" />

 

Groeten Marino.

[martjeB]

Ik heb juist altijd een computer aanstaan, die de mail voor tuxmail wegkaapt.

 

Outlook express gaat niet werken?

[dream-on]

werkt TUXMAIL ook bij een GMAIL account, zoja wat zijn dan de instelligen?