🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #3687

Re: Inviare un email

#3687
From: Omega
Date: Thu, 02 May 2002 21:57
42 lines
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-mail
References: <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]