🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #15077

Re: email adres

#15077
From: SLE
Date: Wed, 29 Nov 2000 00:00
27 lines
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-mail
References: <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