Article View: be.comp.programming
Article #15077Re: email adres
From: SLE
Date: Wed, 29 Nov 2000 00:00
Date: Wed, 29 Nov 2000 00:00
27 lines
1317 bytes
1317 bytes
"steven" <steven.l@netcourrier.com> wrote in message
news:9010dc$kmd$1@news0.skynet.be...
> Is het mogelijk om iemand zijn Email adres te achterhalen met vb6
>
De volgende functie geeft de e-mail display name + adres van de huidige
gebruiker terug. Voorwaarde is als reference in je VB project 'Microsoft
CDO' (Collaboration Data Objects) toe te voegen.
Private Function GetEmailAddress() As String
Dim objCDO As New CDO.Configuration
GetEmailAddress = objCDO.Fields(9).Value
Set objCDO = Nothing
End Function
Dit geeft op mijn PC het volgende terug:
"Steven Lecluyse" <steven.lecluyse@vsk.be>
--
SLE
Home of VB Magic
http://go.to/sle
Technical Details
Message-ID:
<902t3h$gc5$1@news0.skynet.be>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<9010dc$kmd$1@news0.skynet.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit X-Google-Thread: fcea4,25e680b10cb29201 X-Google-Attributes: gidfcea4,public From: "SLE" <fake@mail.com> Subject: Re: email adres Date: 2000/11/29 Message-ID: <902t3h$gc5$1@news0.skynet.be> X-Deja-AN: 699083742 References: <9010dc$kmd$1@news0.skynet.be> X-Priority: 3 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6700 X-Complaints-To: abuse@skynet.be X-Trace: news0.skynet.be 975501233 16773 194.78.222.97 (29 Nov 2000 12:33:53 GMT) Organization: Belgacom Skynet SA/NV X-MSMail-Priority: Normal NNTP-Posting-Date: 29 Nov 2000 12:33:53 GMT Newsgroups: be.comp.programming