Path: csiph.com!aioe.org!.POSTED!not-for-mail From: Paperino Newsgroups: it.comp.lang.visual-basic Subject: Re: Invio mail Date: Fri, 20 Oct 2017 17:21:34 +0200 (CEST) Organization: nntp.aioe.org Lines: 38 Message-ID: References: NNTP-Posting-Host: 0NiiEmBB9vzQ4wtZfPNnVw.user.gioia.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Complaints-To: abuse@aioe.org X-Archive: encrypt X-Newsreader: PiaoHong.Usenet.Client.VIP:1.65 X-Notice: Filtered by postfilter v. 0.8.2 Xref: csiph.com it.comp.lang.visual-basic:19208 Greg ha scritto: > 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. > Grazie Paperino, > sto provando questa soluzione ma otengo un "errore definito dall'applciazione" sulla riga .Recipients.Add > "prova@tin.it" Altri indizi? Un codice di errore, qualcosa...? Se provi a immettere gli stessi dati direttamente da Outlook che succede? Capirai che debuggare da qua a naso non è esattamente semplice :-/ Bye, G.