🚀 go-pugleaf

> Het begint er al een beetje op te trekken, het begint wat te lukken.
> Ik gebruik nu volgende code:
> <begin>
> Dim incomingdata As String
> Winsock1.GetData incomingdata
> Dim strSubject As String
> Dim strMail As String
> Dim intWhere As Integer
> strMail = incomingdata
> Print incomingdata
> intWhere = InStr(1, strMail, "Subject:")
> If intWhere <> 0 Then
> strSubject = Mid(strMail, intWhere)
> intWhere = InStr(1, strSubject, vbCrLf)
> strSubject = Mid(strSubject, intWhere)

Hier zit de fout. Ik denk dat hier beter strSubject = Left(strSubject,
intWhere -1 ) gebruikt. Een foutje van mij sorry. Hij plaatst in die string
alles vanaf vbCrLf en het moet alles ervoor zijn. Nu begint hij aan het
begin van de string en plaatst alles tot juist ��n teken voor vbcrlf in
strSubject.

> MsgBox ("Er is subject in de header gevonden")
> MsgBox (strSubject)
> </einde code>
> Als je deze code runt, word er gedetecteerd aan de hand van het word
subject
> in de string, of die string al dan niet een header is ja of nee.
> Nu is het probleem dat strSubject, *alles* van de complete header inhoud
> /achter/ het subject, dus subject is niet ingbegrepen in de string, maar
wel
> *alles* achter het subject.
> Vind het eigenlijk niet direct.

Ik heb ook effkes moeten zoeken. Sorry, ik ben ook maar een mens die fouten
maakt.
--
Mvg. Zoeloelip

Muziekagenda - De site voor de muziekliefhebber -
http://www.muziekagenda.be.tf
PUB - De Telenet-Internet gebruikersvereniging - http://pub.telenet.be