Codice invio email Outlook. Problema Allegato

di
dasio
il
7 risposte
D
dasio
Pochi posts
Iscritto da
apr, 2011
Messaggi:
10

Codice invio email Outlook. Problema Allegato

Ciao a tutti,
Ho preso questo codice sulla rete per l'invio di email tramite outlook:
Sub InvioEmail()
'
' InvioEmail Macro

'
Dim appOL As New Outlook.Application
Dim creaEmail As Outlook.MailItem
Set creaEmail = appOL.CreateItem(olMailItem)

With creaEmail
.To = "indirizzo@email.it"
.Subject = "Invio ....."
.Body = "In allegato si invia ......" & vbCrLf & _
"Cordiali saluti."
.Attachments.Add "C:\Temp\Fattura.txt"
'.Display
'.Save
.Send
End With
'Pulizie
Set appOL = nothing
Set creaEmail = nothing
End Sub
il mio problema è che devo allegare in automatico dei file in cui nel titolo dello stesso cambia solo nella data con la data odierna (es. 1234 05/04/2011 - 1234 06/05/2011 ). Come posso fare per fargli riconoscere in automatico quale file allegare?

Grazie In anticipo

7 Risposte

  • D
    dasio
    Pochi posts
    Iscritto da
    apr, 2011
    Messaggi:
    10

    Re: Codice invio email Outlook. Problema Allegato

    Nesseuno può aiutarmi? Magari pensavo di poter creare un file batch che sposti solo il file che mi serve in una seconda cartella così da semplificare la macro per l'invio e successivamente farne partire un secondo che lo risposti. Nessuno può aiutarmi?
  • Toki
    Toki
    Moderatore
    Iscritto da
    gen, 2001
    Messaggi:
    3887

    Re: Codice invio email Outlook. Problema Allegato

    Ciao è semplicissimo, devi usare una variabile compilata con la data di sistema al posto del nome di file fisso.
    nomefile = "1234 " + FormatDateTime(Now(),2) + ".txt"
.Attachments.Add "C:\Temp\" + nomefile
    puoi variare il formato della data tramite il secondo parametro della funzione: FormatDateTime
  • D
    dasio
    Pochi posts
    Iscritto da
    apr, 2011
    Messaggi:
    10

    Re: Codice invio email Outlook. Problema Allegato

    Toki ha scritto:

    Ciao è semplicissimo, devi usare una variabile compilata con la data di sistema al posto del nome di file fisso.
    nomefile = "1234 " + FormatDateTime(Now(),2) + ".txt"
.Attachments.Add "C:\Temp\" + nomefile
    puoi variare il formato della data tramite il secondo parametro della funzione: FormatDateTime
    Grazie per la risposta, ho fatto dei test e funziona tutto solo che quando uso il riconoscimento con l'istruzione formatdatetime non mi trova il file. Ho visto che teoricamente restituisce il valore "2/16/2010" e non sò se è collegato al fatto che il titolo dei documenti non può contenere gli "/" . Potersti illuminarmi? considera il file si chiamerebbe 04_08_2011_PROVA.xls . Consiederate anche che il formato della data del file può essere cambiato.
    Grazie Ancora
  • D
    dasio
    Pochi posts
    Iscritto da
    apr, 2011
    Messaggi:
    10

    Re: Codice invio email Outlook. Problema Allegato

    Nessuno è????
  • D
    dasio
    Pochi posts
    Iscritto da
    apr, 2011
    Messaggi:
    10

    Re: Codice invio email Outlook. Problema Allegato

    Zero assoluto?
  • Toki
    Toki
    Moderatore
    Iscritto da
    gen, 2001
    Messaggi:
    3887

    Re: Codice invio email Outlook. Problema Allegato

    Ciao Dasio, calma... non è che siamo tutti qui a monitorare i post.

    Dovresti fare il replace degli slash in underscore e stampare a video il contenuto della variabile: "nomefile" in modo da verificare che sia effettivamente corrispondente al nome del file.. fammi sapere

    Ciao
  • D
    dasio
    Pochi posts
    Iscritto da
    apr, 2011
    Messaggi:
    10

    Re: Codice invio email Outlook. Problema Allegato

    Scusami Toki, ma purtroppo è urgente. Ora ti incavolerai ancora di più perchè non ho proprio idea di come fare per eseguire quello che mi consigli . Ora cerco un pò e mi informo.
    Grazie
Devi accedere o registrarti per scrivere nel forum
7 risposte