agenda

[granlaura]

Ciao ragazzi scusate il ritardo ,in effetti vado con memorex con l'altra non sono riuscita sono una capra
ora ho un'altra voglia :
dal database (magari uno creato solo per quello) il giorno del compleanno degli iscritti parte un biglietto di auguri
Mi aiutate ?
Grazie mille Laura

[Flash30005]

Perdona GranLaura ma se vuoi spedire biglietti o altro utilizzando excel stai nella sezione giusta
ma se vuoi utilizzare il programma memorex per l'invio di email (non so nemmeno se è predisposto)
dovremmo cambiare sezione a questo post.

Secondo me fai prima ad inviare un file excel con alcuni dati fittizzi, ma che rispecchiano lo schema dei tuoi dati, e spiegare cosa ti occorre.
Avendo lo schema penso sia facilmente risolvibile.

Ciao

@Raimea per questo link http://www.lelugarine.eu/downloads.asp?id=130 è richiesto l'accesso

[granlaura]

Ciao ti allego un prospettino :vorrei includere un "biglietto" di auguri (che si possa cambiare ) e che parta il giorno del compleanno
Grazie molte Laura :non so serva , ma ti dico che questa corrispondenza è inviata gmail ciao!!

https://rapidshare.com/#myrs_filemanager/file/8981

[Flash30005]

Potresti usare questo server?
Rapid chiede l'accesso

ciao

[raimea]

ciao

Ciao

@Raimea per questo link http://www.lelugarine.eu/downloads.asp?id=130 è richiesto l'accesso

si' , lo so'
l'ho messo xche' almeno li', non lo tolgo da XX giorni...
chi vuole li', lo trovera' sempre.

(se da fastidio x il richiamo ad altro sito , chiedo all' admin di cancellare pure il link)


ciao

[granlaura]

Potresti usare questo server?
Rapid chiede l'accesso

ciao

ciao ,non ho l'account su questo server
Grazie Laura

[Flash30005]

non serve l'account
è sufficiente cliccare su upload
caricare il file
e copiare il link che rilascia il server

ciao

[granlaura]

non serve l'account
è sufficiente cliccare su upload
caricare il file
e copiare il link che rilascia il server

ciao

ti devo mandare il codice giusto ? eccolo



http://www.filedropper.com/biglietto

[Flash30005]

Ok
Quale programma di posta utilizzi (outlook, outlook express, winmail o cosa)?

Ciao

[granlaura]

Ok
Quale programma di posta utilizzi (outlook, outlook express, winmail o cosa)?

Ciao

non serve l'account
è sufficiente cliccare su upload
caricare il file
e copiare il link che rilascia il server

ciao

Ciao non uso un programma di posta , ma entro dalla homepage di gmail
grazie

[Flash30005]

E allora come pensi che excel si colleghi alla webmail e spedisca il biglietto?

[granlaura]

E allora come pensi che excel si colleghi alla webmail e spedisca il biglietto?

come faccio a spedire dal mio outlook expres ?

[granlaura]

E allora come pensi che excel si colleghi alla webmail e spedisca il biglietto?

come faccio a spedire dal mio outlook expres ?

ok ho fatto !! posso spedire da outlook express ti aspetto

[Flash30005]

Oulook express può inviare ovvero può preparare l'intera email da inviare ma devi sempre cliccare su Send per avere l'invio del'email.
Se avessi la possibilità di usare MS Oulook (di office) sarebbe meglio.

fai sapere
ciao

[granlaura]

Oulook express può inviare ovvero può preparare l'intera email da inviare ma devi sempre cliccare su Send per avere l'invio del'email.
Se avessi la possibilità di usare MS Oulook (di office) sarebbe meglio.

fai sapere
ciao

lo posso scaricare ? o è a pagamento ?

[Flash30005]

E' nel pacchetto di Office
se hai excel, word etc
devi avere anche Outlook (potrebbe non essere stato installato ma si può fare in un secondo momento)

ciao

[granlaura]

E' nel pacchetto di Office
se hai excel, word etc
devi avere anche Outlook (potrebbe non essere stato installato ma si può fare in un secondo momento)

ciao

eh si cè ! e ora ?

[Flash30005]

Ora avendo il tuo file di excel, sapendo che hai Ms Outlook, e sapendo cosa ti occorre
vedrai che arriveranno soluzioni che testerai.
Un'ultime cose:
Il biglietto di auguri in che formato è (jpg, pdf etc)?
è in una specifica directory?
come vorresti che avvenisse l'invio all'apertura del file.xls che farai giornalmente?

ciao

[granlaura]

Ora avendo il tuo file di excel, sapendo che hai Ms Outlook, e sapendo cosa ti occorre
vedrai che arriveranno soluzioni che testerai.
Un'ultime cose:
Il biglietto di auguri in che formato è (jpg, pdf etc)?
è in una specifica directory?
come vorresti che avvenisse l'invio all'apertura del file.xls che farai giornalmente?

ciao

formato pdf salvato nei documenti va bene all'apertura giornaliera
grazie ti aspetto

[Flash30005]

In un modulo inserisci l'intero codice

Codice: Seleziona tutto

Public EffInv As Integer
Sub Invia_Email_Allegati()
If EffInv = 1 Then
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailAddr As String
    Dim Subj As String
    Dim BodyText As String
    Dim fs, f
    Perc = "C:\Temp\"  '<<<< tuo percorso file da allegare
    Pf1.Name = "Auguri.pdf"  '<<<<< nome del file .pdf da allegare
    Foglio1.Select
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Quit
    Set OutApp = Nothing
     Application.Wait (Now + TimeValue("0:00:05"))
' RR contiene il numero di utenti cui inviare le e-mail (1 per utente)
    RR = Range("B" & Rows.Count).End(xlUp).Row
' I dati iniziano dalla quarta riga
    For I = 4 To RR
        If Day(Range("B" & I).Value) = Day(Date) And Month(Range("B" & I).Value) = Month(Date) And Cells(I, 6).Value = "" Then
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)
            With OutMail
' La colonna "C" contiene gli indirizzi e-mail dei vari destinatari
                  .To = Cells(I, 3)
                 .Subject = Cells(I, 4)
' La colonna "E" contiene l testo della e-mail
                  .Body = Cells(I, 5)
                .Attachments.Add (Perc & Pf1.Name)
                .Send
                'MsgBox ("mail inviata")
                Cells(I, 6).Value = Cells(1, 6).Value
                Application.Wait (Now + TimeValue("0:00:02"))
            End With
            Set fs = Nothing
            Set f = Nothing
            Set NFile = Nothing
            Set OutMail = Nothing
            Set OutApp = Nothing
        Application.Wait (Now + TimeValue("0:00:03"))
    End If
    Next I
MsgBox ("Invio completato")
End If
End Sub


Sostituisci il percorso e il nome del file.pdf che devi allegare dove indicato


Nel Vba di ThisWorkbook o Questa_cartella_di_lavoro inserisci questo codice

Codice: Seleziona tutto

Private Sub Workbook_Open()
    RR = Range("B" & Rows.Count).End(xlUp).Row
    If Year(Date) <> Foglio1.Range("F1").Value Then
    Columns(6).ClearContents
    Foglio1.Range("F1").Value = Year(Date)
    End If
    For I = 4 To RR
        If Day(Range("B" & I).Value) = Day(Date) And Month(Range("B" & I).Value) = Month(Date) Then
            EffInv = 1
            Invia_Email_Allegati
            Exit Sub
        End If
    Next I
End Sub


La colonna D l'ho riservata per l'oggetto della email (Auguri o altra ricorrenza)
la colonna F, invece, serve per evitare di inviare una ulteriore email nel caso che il file di excel venga aperto due volte nell'arco della giornata. In pratica ogni volta che viene inviata l'email, viene trascritto l'anno (2013) in corrispondenza della scadenza, questa scrittura fa si di non inviare una seconda email.
Inoltre la colonna F viene resettata ad ogni cambiamento di anno per far sì che nel nuovo anno vengano rispettate tutte le ricorrenze.
Per maggior chiarezza invio questo file
ciao