Path: csiph.com!aioe.org!.POSTED!not-for-mail
From: Paperino <non_te@lo.dico.invalid>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: Invio mail
Date: Thu, 19 Oct 2017 23:59:55 +0200
Organization: Aioe.org NNTP Server
Lines: 40
Message-ID: <osb78i$9ia$1@gioia.aioe.org>
References: <osb1ao$49u$1@solani.org>
NNTP-Posting-Host: vCMBUoxNqMD4aA4Bw4+fNA.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-15; format=flowed
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; it; rv:1.8.1.24) Gecko/20100228 Thunderbird/2.0.0.24 Mnenhy/0.7.5.666
Content-Language: it
X-Notice: Filtered by postfilter v. 0.8.2
Xref: csiph.com it.comp.lang.visual-basic:19204

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.