Archivio | dicembre, 2010

FOUR YEARS. GO.

29 Dic

FOUR YEARS. GO..

Annunci

Fernando Paniccia è morto in carcere: disabile al 100 %

29 Dic

Fernando Paniccia è morto in carcere: disabile al 100 %.

Difendersi dai figli in vacanza Manuale per genitori esausti – Corriere della Sera

29 Dic

Difendersi dai figli in vacanza Manuale per genitori esausti – Corriere della Sera.

Museo del presepe il mondo nel presepio

29 Dic

A Salerano sul Lambro.

Museo del presepe il mondo nel presepio.

La Bugia di Babbo Natale | genitoricrescono.com

29 Dic

La Bugia di Babbo Natale | genitoricrescono.com.

Macro Excel: Invio Email

29 Dic

Sub InvioEmail()

‘ InvioEmail_da_Excel_via_Outlook Macro
‘ Macro registrata il 16/05/2008 da rollis13
‘ Modifica il 29/12/2010 da gpiras -> ho inserito un commento per non
‘ allegare dei file


Dim OutApp As Object
Dim ciclo As Integer
Dim creaEmail

For ciclo = 1 To 2 ‘ da impostare pari agli indirizzi nell’elenco
Set OutApp = CreateObject(“Outlook.Application”)
Set creaEmail = OutApp.CreateItem(0)
With creaEmail
.To = Cells(ciclo, 1) ‘ indirizzo email
.Subject = Cells(ciclo, 2) ‘ testo oggetto
.Body = Cells(ciclo, 3) ‘ testo corpo
‘.Attachments.Add “C:\Temp\” & Cells(ciclo, 4) ‘ allega file (adeguare percorso)
.Send ‘ invia email
End With
‘ pausa di 5 secondi per l’esecuzione di Outlook
Application.Wait (Now + TimeValue(“0:00:05”))
‘ pulizia variabili
Set OutApp = Nothing
Set creaEmail = Nothing
Next ciclo
MsgBox “Invio terminato, ” & ciclo – 1 & ” email inviate!”
End Sub

Confronto Tariffe

29 Dic

Ecco un ottimo sito per il confronto delle tariffe di vario tipo: bollette telefoniche, ADSL, Conti corrente, …

Confronto Tariffe.