Groups > it.comp.lang.visual-basic > #19207

Re: Invio mail

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 <greg@alicie.com>
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	<oscns7$4k7$1@solani.org> (permalink)
References	<osb1ao$49u$1@solani.org> <osb78i$9ia$1@gioia.aioe.org>
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

Show key headers only | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Invio mail Greg <greg@alicie.com> - 2017-10-19 22:18 +0200
  Re: Invio mail Luca D <antaniserse@yahoo.it> - 2017-10-19 14:12 -0700
  Re: Invio mail Paperino <non_te@lo.dico.invalid> - 2017-10-19 23:59 +0200
    Re: Invio mail Greg <greg@alicie.com> - 2017-10-20 13:49 +0200
      Re: Invio mail Paperino <non_te@lo.dico.invalid> - 2017-10-20 17:21 +0200
        Re: Invio mail Greg <greg@alicie.com> - 2017-10-20 17:36 +0200
          Re: Invio mail Paperino <non_te@lo.dico.invalid> - 2017-10-20 22:38 +0200
            Re: Invio mail Paperino <non_te@lo.dico.invalid> - 2017-10-20 23:31 +0200
            Re: Invio mail Greg <greg@alicie.com> - 2017-10-23 11:13 +0200
              Re: Invio mail Paperino <non_te@lo.dico.invalid> - 2017-10-23 11:49 +0200
                Re: Invio mail Greg <greg@alicie.com> - 2017-10-23 15:29 +0200
  Re: Invio mail Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2017-10-20 01:25 +0200

csiph-web