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

Re: Invio mail

From	Greg <greg@alicie.com>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: Invio mail
Date	2017-10-20 13:49 +0200
Organization	solani.org
Message-ID	<oscns7$4k7$1@solani.org> (permalink)
References	<osb1ao$49u$1@solani.org> <osb78i$9ia$1@gioia.aioe.org>

Show all headers | 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