Invio File Excel



  • Invio File Excel
    di Gennaro (utente non iscritto) data: 06/11/2013 21:32:56

    Ciao a tutti,
    ho la necessita di inviare un file in excel via posta elettronica, usco Outlook 2003: con il tasto invia come allegato va bene, ma non utilizza la mia firma che normalmente con Outlook esce in automatico sia con una nuova mail sia in risposta. Qualcuno può aiutarmi?
    Grazie in anticipo e saluti.



  • di totygno (utente non iscritto) data: 06/11/2013 21:40:59

    Se usi del codice per creare il messaggio email all'interno del codice ci devi ricreare anche la firma perchè non ti uscirà in automatico come quando lo crei da outlook direttamente.
    Almeno io non conosco altro modo...



  • Invio File Excel
    di Gennaro (utente non iscritto) data: 06/11/2013 21:44:41

    Ciao Totygno,
    non uso codice, faccio File, Invia a Destinatario posta elettronica,Invia come allegato. Se esiste una Macro che aggiungesse la firma di Outlook.
    Grazie e saluti.



  • di totygno (utente non iscritto) data: 06/11/2013 22:08:38

    Bill suggerisce questo per aggirare il problema:

    1. Fare clic sulla voce che si desidera inviare come allegato a una cartella o sul desktop.
    2. Nel modulo Nuovo messaggio (testo normale) , fare clic su formatoe quindi fare clic su HTML o RTF.
    3.Fare clic nell'area dei messaggi di questo modulo, fare clic su Inserisci, fare clic su firmae quindi fare clic sulla firma che si preferisce.
    4.Nella casella a digitare l'indirizzo di posta elettronica del destinatario e quindi fare clic su Invia.

    Ciao



  • Invio File Excel
    di Gennaro (utente non iscritto) data: 06/11/2013 22:17:14

    Ciao,
    si cosi va bene, ma non puo uscire in automatico, senza che la devo aggiungere ogni volta?
    Grazie e saluti.



  • di totygno71 data: 07/11/2013 08:45:35

    Credo proprio di no...
    Almeno che, ripeto non utilizzi il codice vba per aprire outlook e inviare il file...
    Se fai una ricerca nello storico discussioni trovi sicuramente spunto sul tema.

    Ciao



  • di nichicanta (utente non iscritto) data: 07/11/2013 09:12:09

    Ciao Gennaro, ti allego un file che utilizzo io per l'invio dei file a tanti destinatari ecc.
    Ricordati di compilare tutti i campi che a te interessano (per il buon funzionamento del programma devi obbligatoriamente compilare i campi: Mittente;Destinatari;Percorso File e nome file) anche per una sola riga.
    Il tuo gruppo firma che vuoi esca ad ogni messaggio lo puoi comporre nel codice VBA (al punto .body) della sub inviamail, aprendo l'editor vba premendo contemporaneamente i tasti ALT+F11 e lo personalizzi a tupo piacimneto.
    Vedi se fa al caso tuo .
    Ciao e buona giornata a tutti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 07/11/2013 13:22:40

    Ciao Nichicanta,
    diciamo che il tuo file non è quello che serve: forse modificando il codice Vba, potrebbe andare bene, ma purtroppo non so come fare.
    Grazie e saluti.

    Ciao Totygno,
    ora cerco qualcosa che possa essermi d aiuto, anche se come gia detto sopra non sono pratico di Vba.
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 07/11/2013 20:25:50

    Ciao ragazzi,
    ho trovato questa macro in rete, chi mi aiuta a modificarla? Vorrei che come oggetto ci sia il nome del file e che inviasse il file come allegato
    Grazi e saluti.
     
    Sub InviamailPDF()
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim nomefiledaallegare As String
    
    
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    
    
    On Error Resume Next
    With OutMail
    .To = "indirizzo email"
    .CC = ""
    .BCC = ""
    .Subject = "PRESENZE MENSILI"
    .BodyFormat = olFormatHTML
    HTMLbody = "Alla cortese attenzione di DESTINATARIO
    MESSAGGIO" .Attachments.Add "percorso file" .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 08/11/2013 07:51:53

    Ciao ragazzi,
    novità?
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 08/11/2013 14:51:26

    Ciao a tutti,
    please help me.
    Grazie e saluti.



  • di rplacanica (utente non iscritto) data: 08/11/2013 18:29:18

    imposta in questo modo:

    .subject=ActiveWorkbook.Name
    .Attachments.Add ActiveWorkbook.FullName

    se il resto ti va bene...


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 08/11/2013 19:21:36

    Ciao,
    grazie funz9iona. Solo una piccola modifica, vorrei che l oggetto della mail sia il nome del file excel, ma senza .xls è possibile?
    Grazie e saluti.


  • Subtotali con filtro per colonna
    di Gennaro (utente non iscritto) data: 09/11/2013 10:23:03

    Ciao Isy,
    ci sono 3 clienti con sconto zero, riesci a far uscire 0, anzichè #DIV/0!
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 09/11/2013 17:18:15

    Ciao rplacanica,
    grazie funziona. Solo una piccola modifica, vorrei che l oggetto della mail sia il nome del file excel, ma senza .xls è possibile?
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 10/11/2013 09:33:32

    Ciao rplacanica,
    news?
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 11/11/2013 07:49:30

    Ciao rplacanica,
    news?
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 11/11/2013 14:23:25

    Ciao rplacanica,
    grazie funziona. Solo una piccola modifica, vorrei che l oggetto della mail sia il nome del file excel, ma senza .xls è possibile?
    Grazie e saluti.


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 12/11/2013 07:40:21

    Ciao rplacanica,
    news?
    Grazie e saluti.



  • di nichicanta (utente non iscritto) data: 12/11/2013 16:52:00

    Ciao gennaro prova a sostituire con questo codice la riga che ti posto, ho fatto delle prove e funziona, fammi sapere.
     
    .Subject = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)


  • Invio File Excel
    di Gennaro (utente non iscritto) data: 12/11/2013 17:02:20

    Ciao nichicanta,
    si funziona.
    Grazie e saluti.