Path: csiph.com!news.mixmin.net!weretis.net!feeder4.news.weretis.net!feeder5.news.weretis.net!news.solani.org!.POSTED!not-for-mail From: Greg Newsgroups: it.comp.lang.visual-basic Subject: Re: Invio mail Date: Fri, 20 Oct 2017 13:49:26 +0200 Organization: solani.org Lines: 38 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-15"; format=flowed Content-Transfer-Encoding: 8bit X-Trace: solani.org 1508500167 4743 eJwFwYERADAEBLCVKP8Yx1XtP0ITGJU3nKBjsePJ7kmtspmpd2IjUiLWG2VyelUvmGeIJx8btxC5 (20 Oct 2017 11:49:27 GMT) X-Complaints-To: abuse@news.solani.org NNTP-Posting-Date: Fri, 20 Oct 2017 11:49:27 +0000 (UTC) X-Newsreader: MesNews/1.08.06.00-it X-User-ID: eJwFwQERACAIBMFKgtyjcVSG/hHcZcr0MoSCpudgtSl5C3R9BznKeKWKkzpkmfvujfctff19EFQ= Cancel-Lock: sha1:tc/1TYMGP1XTjkH0QdUnQC1j4MA= X-NNTP-Posting-Host: eJwFwYEBACAEBMCViKfGQf3+I3QHC41JD4SD4LOoXSoQa4oOzvJdnbxqTDmX0DWtNeb5XD4WaRDp Xref: csiph.com it.comp.lang.visual-basic:19207 Il 19/10/17 23:59:55 Paperino ha scritto: > Usa l'automazione. Crea un nuovo progetto VB, imposta un riferimento > a "Microsoft Outlook XX.0 Object Library" (XX dipende da che Outlook > hai, ma non preoccuparti: il riferimento č comunque alla MSOUTL.OLB) > poi in un pulsante incolla questo codice: > > '********************** > Private Sub Command1_Click() > Dim objOutlook As Outlook.Application > Set objOutlook = New Outlook.Application > > Dim objMailItem As Outlook.MailItem > With objOutlook > Set objMailItem = .CreateItem(olMailItem) > With objMailItem > .Subject = "Soggettone" > .Body = "Corpo della mail. Puoi andare a capo con '& vbNewLine'" > .Recipients.Add "indirizzo@serverposta.it" > .Save > End With > End With > End Sub > '********************** > > Il .Save salva la mail in bozza senza inviarla, e l'utente > puņ scegliere cosa fare. > > Bye, G. Grazie Paperino, sto provando questa soluzione ma otengo un "errore definito dall'applciazione" sulla riga .Recipients.Add "prova@tin.it" Cosa puņ essere? -- Greg