Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sende/receive email from Excel with Outlook
Hello, I use the following subroutine to send (and a similar one to receive) email from Excel using Outlook. My problem is that the user gets a security alert he must confirm to proceed, with some doubts for someone on what reply exactly, so I'ld like to disable these alerts. I've found some posts to solve this issue using different methods to manage the mail by Excel without using Outlook. But these methods allow only to send and not to receive email. I'ld like to know if there is any setting by VBA to disable these security alerts. Sub SendImportExport() On Error GoTo err_hnd Dim Percorso As String, NomeFileOrigine As String, NomeFileDestinazione With ThisWorkbook Percorso = .Path ChDir Percorso NomeFileOrigine = Percorso & "\ImportExport.mdb" NomeFileDestinazione = Percorso & "\ImportExport.p46" FileCopy NomeFileOrigine, NomeFileDestinazione Application.DisplayAlerts = False '.SaveAs "TEMP" & NomeFile 'Salva il file con un nome preceduto da "TEMP" End With 'Qui comincia l’avventura, con Outlook-Bonaventura: Dim Outlk As New Outlook.Application 'Apre un’istanza di MS Outlook Dim MioMess As MailItem DoEvents 'Imposta una letterina Outlook... Set MioMess = Outlk.CreateItem(olMailItem) '... e ne stabilisce gli estremi With MioMess ' '.To = InputBox("Digitare l'indirizzo dei Gestori Operativi destinatari del file (es. ; )", "Invio ImportExport.mdb") CC = " Subject = "Invio file ImportExport.p46" '.Body = InputBox("Breve comunicazione per i destinatari (facoltativa)", "Comunicazioni") Attachments.Add NomeFileDestinazione 'NON dimenticare la "\" !!! Display 'Visualizza il messaggio Send 'ISTRUZIONE EVENTUALE PER SPEDIRE IL MESSAGGIO End With 'Libera le variabili-oggetto (istruzione qui facoltativa) Set MioMess = Nothing Set Outlk = Nothing Kill NomeFileDestinazione Exit Sub err_hnd: Select Case Err Case 53 ' file non trovato Resume Next Case Else MsgBox Err.Description & "/" & Err.Number & " Sub Export" End Select Resume Next End Sub Thanks -- eggpap Emiliano Excel 2003 on Vista HP System - can use VBA ------------------------------------------------------------------------ eggpap's Profile: http://www.thecodecage.com/forumz/member.php?userid=90 View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=90790 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I calculate the percentage of email i receive over time | Excel Discussion (Misc queries) | |||
how to remove the outlook confirm window when use excel to send email from outlook? | Excel Programming | |||
excel close everytime I receive an email with lotus notes 6.5.5 | Excel Discussion (Misc queries) | |||
microsoft outlook unable to perform operation - send = receive. | Excel Discussion (Misc queries) | |||
Late Binding to Outlook from Excel: Outlook modifies email body | Excel Programming |