[VB] Outlook e-mail slepen op form

[robjanssen]

Weet iemand of het mogelijk is om een e-mail van Outlook naar een formulier te slepen. En vervolgens los te laten. En dat je dan met behulp van vb-code de body van de e-mail uit kan lezen?

[mOrPhie]

plaats op een form een textbox en zet dit in je code:

code:

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strText As String
    
    strText = Data.GetData(vbCFText)
    Text1.Text = strText
End Sub

PS. kijk wel uit dat je geen verkapte scriptrequests doet. Dit had je makkelijk met google kunnen vinden waarschijnlijk. Succes verder.

[robjanssen]

Dit had ik al.
Maar dan krijg je alleen Afzender, subject en datum te zien.
Hoe haal ik dan daarna de Body tekst uit de e-mail?

[mOrPhie]

Je zou in plaats van vbCFText, vbCFFiles of vbCFRTF ofzow kunnen gebruiken. Alleen werkt het dan niet meteen. Je zou de MSDN even moeten raadplegen, die heeft er wel een hoop over in staan.

[robjanssen]

vbCFFiles of vbCFRTF werken niet.
En de MSDN heb ik geraadpleegd, maar daarin kan ik niets vinden.

[mOrPhie]

je zou er toch echt even mee moeten spelen en de Code reference van het DataObject doornemen. Ik kan het je wel op een presenteerblaadje geven, maar ik weet het ook niet 1,2,3. Even zoeken en klooien dus. 't zit em in ieder geval in dat dragdrop dataobject

[robjanssen]

SCHOP!

[Verwijderd]

Van OLE weet ik niks, maar ik neem aan dat DATA een object is van het type olMailitem (het is immers een outlook email).
Als je een object aanmaakt (office2k!)
dim Mailtje as outlook.mailitem
dan zou je dat dataobject daaraan moeten linken.
De body etc aanroepen is dan simpel:
Mailtje.To
Mailtje.Body
Mailtje.Subject

Wel een reference maken naar Oulook 9.0 object lib...

verder kan ik je niet helpen...

[Ashbjorn]

www.planet-source-code.com

daar staan volgens mij wel wat examples met wat je wilt doen.