Simpele e-mail versturen in vb

[tuning4you]

De bedoeling is om bepaalde monitoring foutmeldingen via mail te versturen.
Dit programma moet zowel op mijn werk als extern (voor testing) kunnen draaien. Dus geen gebruik makend van Outlook of Outlook express.
Weet iemand hoe ik dit eenvoudig in mijn programma kan programmeren???
Men moet namelijk een e-mail adres (intern/extern) selecteren in een listbox waarnaar de monitoring foutmeldingen gemaild worden.

Iemand een idee hoe ik dit kan oplossen?

 

[That Guy]

google: http://www.google.nl/search?hl=nl&q="visual+basic"+mail+without+outlook&meta=

1e hit: http://www.xtremevbtalk.com/archive/index.php/t-13626.html

5e hit: http://www.thescripts.com/forum/thread444603.html
welke een doorlink had naar: http://www.freevbcode.com/ShowCode.Asp?ID=109

zoiets?

 

[CoD_NL]

google: http://www.google.nl/search?hl=nl&q="visual+basic"+mail+without+outlook&meta=

1e hit: http://www.xtremevbtalk.com/archive/index.php/t-13626.html

5e hit: http://www.thescripts.com/forum/thread444603.html
welke een doorlink had naar: http://www.freevbcode.com/ShowCode.Asp?ID=109

zoiets?

Je kunt ook gewoon zoeken op 'SMTP'.

http://pscode.com/vb/scripts/Browse...setAllVariables=TRUE&lngWId=1&B1=Quick+Search
http://www.google.nl/search?hl=nl&q="Visual+Basic+SMTP"&btnG=Google+zoeken&meta=

 

[tuning4you]

Wat ik ook doe, het lukt niet.
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=12055&lngWId=1
Bovenstaand tooltje heb ik eens getest. Ik wens geen SMTP in te stellen maar dit lukt niet daarbij. Als ik mijn uitgaande SMTP doe (relay.skynet.be) lukt het ook niet.

 

[CoD_NL]

Wat ik ook doe, het lukt niet.
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=12055&lngWId=1
Bovenstaand tooltje heb ik eens getest. Ik wens geen SMTP in te stellen maar dit lukt niet daarbij. Als ik mijn uitgaande SMTP doe (relay.skynet.be) lukt het ook niet.

Zal morgen wel even kijken. Weltrusten.

 

[tuning4you]

PFF met die smtp krijg ik mijn mails gewoon niet naar buiten.
Relay.skynet.be werkt dus langs geen kanten. Ofwel doe ik iets verkeerd.

 

[Hans van Dijck]

Via outlook

Dim Outl As Outlook.Application
Dim MailM As Outlook.MailItem

Set Outl = CreateObject("Outlook.Application")
Set MailM = Outl.CreateItem(olMailItem)

MailM.To = "hallo@chello.nl"
MailM.CC = TxtMailCC
MailM.BCC = TxtMailBCC
MailM.Subject = TxtSubject
MailM.Body = RtbBody

MailM.SendMail

 

[tuning4you]

Sorry Hans maar ik wens geen gebruik te maken van Outlook. Dit heb ik al kunnen uitvoeren en het is de bedoeling dit te gebruiken op een pc waar geen office op staat.

 

[CoD_NL]

't Was Hans gisteravond volgens mij al iets te laat.

 

[That Guy]

 

[etri]

Je zou ook eens hier kunnen kijken (bijna helemaal onderin):
http://www.helpmij.nl/forum/showthread.php?t=320476