Article View: free.it.visual-basic
Article #3687Re: Inviare un email
From: Omega
Date: Thu, 02 May 2002 21:57
Date: Thu, 02 May 2002 21:57
42 lines
2346 bytes
2346 bytes
"Sandro Cama" ha dgtato nel post: > Salve vorrei inserire dentro un mio programma il mio indirizzo email che se > si clicca sopr ti apre Outlook per mandare un messaggio al su detto email > Grazie Allora Crea un modulo e inserisci: ==========Modulo1.bas============== Option Explicit Public const Mail="tua@email" Public Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd as Long, _ _ ByVal lpOperation as String, _ _ ByVal lpFile as String, _ _ ByVal lpParameters as String, _ _ ByVal lpDirectory as String, _ _ ByVal nShowCmd as Long)as Long Public Const SW_SHOWNORMAL=1 Public Sub Email() Dim Mail as long Mail=ShellExecute(0&,vbNullString,"mailto:" & mail, _ _ vbNullString, "C:\", SW_SHOWNORMAL) End Sub ============================================ Nel form metti un label la cui propriet� Caption pu� essere tipo Mail Me poi nel codice metti ============================================ Private Sub Label1_Click() Email End Sub =========================================== Ecco finito...spero di non aver fatto errori...mi scuso della lunghezza del post (Scusatemi!) -- =Omega====================== "Hands On" sentinellaomega[at]hotmail[dot]com ============================
Technical Details
Message-ID:
<QCiA8.130095$SR5.3213847@twister1.libero.it>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!supernews.com!pd2nf1so.cg.shawcable.net!residential.shaw.ca!peer1-sjc1.usenetserver.com!usenetserver.com!newsfeed1.cidera.com!Cidera!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mailReferences:
<IPNz8.39211$W9.955947@twister2.libero.it>Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII X-Google-Thread: f94ee,96221e1c58c2ad54 X-Google-Attributes: gidf94ee,public X-Google-ArrivalTime: 2002-05-02 14:58:06 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!supernews.com!pd2nf1so.cg.shawcable.net!residential.shaw.ca!peer1-sjc1.usenetserver.com!usenetserver.com!newsfeed1.cidera.com!Cidera!news.maxwell.syr.edu!nntp.infostrada.it!twister1.libero.it.POSTED!not-for-mail From: "Omega" <xxx@xxx.xxx> Newsgroups: free.it.visual-basic References: <IPNz8.39211$W9.955947@twister2.libero.it> Subject: Re: Inviare un email Lines: 45 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 Message-ID: <QCiA8.130095$SR5.3213847@twister1.libero.it> Date: Thu, 2 May 2002 23:57:01 +0200 NNTP-Posting-Host: 151.26.90.228 X-Complaints-To: abuse@libero.it X-Trace: twister1.libero.it 1020376624 151.26.90.228 (Thu, 02 May 2002 23:57:04 MET DST) NNTP-Posting-Date: Thu, 02 May 2002 23:57:04 MET DST Organization: [Infostrada]