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

Re: Invio mail

From	Paperino <non_te@lo.dico.invalid>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: Invio mail
Date	2017-10-19 23:59 +0200
Organization	Aioe.org NNTP Server
Message-ID	<osb78i$9ia$1@gioia.aioe.org> (permalink)
References	<osb1ao$49u$1@solani.org>

Show all headers | View raw

Greg ha scritto:
> Ho bisogno di mandare una mail con Outlook, o meglio, precompilare il 
> tutto e poi lasciare l'invio o meno all'utilizzatore. Per questo vorrei 
> presentargli una mail con il cursore alla fine del testo e non 
> all'inizio. Come fare?
> 
> Questo il codice usato:
> mail = "mailto: mirko@gmail.com"
> sog = " ?subject=Invio Mail di prova "
> bod = "&body=Buongiorno, le scrivo per ..."
> s = ShellExecute(0&, vbNullString, mail & sog & bod, vbNullString, 
> "C:\", SW_SHOWNORMAL)

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.

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