Ik heb met behulp wat boekjes
een E-Mailprogrammmaatje gemaakt, wat opzich goed werkt. Alleen kan er maar 1 bericht per keer binnenkomen, waarna ik het programma een paar keer opnieuw op moet starten voordat het 2e mailtje binnenkomt. In Outlook komen de e-mail's wel tegelijk.
pop3 = CreateObject("POP3")
pop3.MailServer = "*****"
pop3.Account = "*****"
pop3.Password = "*****"
pop3.Connect()
ret = pop3.DownloadSingleMessage(1)
If ret >= 0 Then
Message = pop3.Messages(1)
datum.Text = Message.Date
afzender.Text = Message.FromAddr
bijlagen.Text = Message.Attachments.Count
onderwerp.Text = Message.Subject
messages.Text = Message.BodyText
End If
pop3.Disconnect()
Dit is de code voor het binnenhalen en het weergeven ervan, de E-mail's worden direct vanaf de pop3-server binnengehaald, waarna de inhoud verdeeld wordt over de tekstvakken die hierboven staan. Ik dacht zelf dat het te maken heeft met die getallen die bijna overal op (1) staan, maar als ik dat verander heeft het nog steeds niet veel nut.
Weet iemand hoe ik kan zorgen dat er wel meerdere e-mail's te gelijk binnen kunnen komen?
pop3 = CreateObject("POP3")
pop3.MailServer = "*****"
pop3.Account = "*****"
pop3.Password = "*****"
pop3.Connect()
ret = pop3.DownloadSingleMessage(1)
If ret >= 0 Then
Message = pop3.Messages(1)
datum.Text = Message.Date
afzender.Text = Message.FromAddr
bijlagen.Text = Message.Attachments.Count
onderwerp.Text = Message.Subject
messages.Text = Message.BodyText
End If
pop3.Disconnect()
Dit is de code voor het binnenhalen en het weergeven ervan, de E-mail's worden direct vanaf de pop3-server binnengehaald, waarna de inhoud verdeeld wordt over de tekstvakken die hierboven staan. Ik dacht zelf dat het te maken heeft met die getallen die bijna overal op (1) staan, maar als ik dat verander heeft het nog steeds niet veel nut.
Weet iemand hoe ik kan zorgen dat er wel meerdere e-mail's te gelijk binnen kunnen komen?