🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #6827

Re: mailen vanuit vb

#6827
From: ThomasL
Date: Mon, 18 Nov 2002 19:07
45 lines
2858 bytes
"Bart Vanwijnsberghe" <bartvanwijnsberghe@DELETE!!SPAMyahoo.com> schreef in
bericht news:zDPB9.5950$Ti2.943@afrodite.telenet-ops.be...
> "Red Head"...
> > is het mogelijk om een tekst te mailen vanuit vb naar m'n hotmail adres
> (of
> > een skynet adres) ? en hoe doe je dat ?
>

ik heb die voor elkaar gekregen door met winsock
een GET comando te sturen naar de server van een freehomepage account waar
een formke op staat
het programma zorgt ervoor dat het zich gedraagt als internet explorer die
het formke post.

"GET /cgi-bin/cgiemail?full_name=" & strName & "&email=" & strEmail &
"&comments=" & strComment & "&cgiemail_subject=" & strSubject &
"&Submit1=THANK+YOU" & " HTTP/1.1" & vbCrLf & _
       "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint,
*/*" & vbCrLf & _
       "Referer: http://"ditisweggelaten:)".freehomepage.com" & vbCrLf & _
       "Accept -Language: nl -be" & vbCrLf & _
       "Accept -Encoding: gzip , deflate" & vbCrLf & _
       "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET
CLR 1.0.3705)" & vbCrLf & _
       "Host: "ditisweggelaten:)".freehomepage.com" & vbCrLf & _
       "Connection: Keep -Alive"

het programma doet ook nog wat wachten enzo tot het een antwoord krijgt en
van die dingen.
tis een complete sub die alles van de mail als parameters aanvaard
Public Sub Sendemail(strName As String, strEmail As String, strSubject As
String, strComment As String)

Ik geloof dat je voor de activex oplossing (freepop oid?) een pop account
nodig hebt. Ik geloof dat dit veiliger is niet?

mail me als je meer wil weten of de sourcecode wil.
thomaslangewouters@no.spam.hotmail.com
Greetz
Thomas
--
    ::: Thomas Langewouters :::
    http://users.skynet.be/langewouters
    :::    Herentals, Belgium    :::
Technical Details
Message-ID: <3dd93a63$0$86560$ba620e4c@news.skynet.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!nntp.cs.ubc.ca!skynet.be!skynet.be!louie!not-for-mail
References: <3dd7c5dc$0$86538$ba620e4c@news.skynet.be> <zDPB9.5950$Ti2.943@afrodite.telenet-ops.be>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,f4fb8e8e1af5c707
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-11-18 11:14:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!nntp.cs.ubc.ca!skynet.be!skynet.be!louie!not-for-mail
From: "ThomasL" <thomas.langewouters@VERWIJDERpi.be>
Newsgroups: be.comp.programming
References: <3dd7c5dc$0$86538$ba620e4c@news.skynet.be> <zDPB9.5950$Ti2.943@afrodite.telenet-ops.be>
Subject: Re: mailen vanuit vb
Date: Mon, 18 Nov 2002 20:07:56 +0100
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Lines: 48
Message-ID: <3dd93a63$0$86560$ba620e4c@news.skynet.be>
Organization: -= Skynet Usenet Service =-
NNTP-Posting-Host: 80.201.182.251
X-Trace: 1037646435 reader0.news.skynet.be 86560 80.201.182.251
X-Complaints-To: abuse@skynet.be