Archivio | office RSS feed for this section

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

Google Cloud Connect connette Microsoft Office e Google Docs

24 Nov

Google Cloud Connect connette Microsoft Office e Google Docs.

Funzione Excel Colora Celle Alternato

21 Set

Sub ColoraCelleAlternato()

‘ ColoraCelleAlternato
‘ Macro registrata il 15/03/2007 da G. Piras

valoreprec = ActiveCell.Value
riga = ActiveCell.Row
colonna = ActiveCell.Column
colore = ActiveCell.Interior.ColorIndex
foglio = ActiveCell.Worksheet.Name
While Worksheets(foglio).Cells(riga, colonna).Value “”
If valoreprec Worksheets(foglio).Cells(riga, colonna).Value Then
If colore = 15 Then
colore = 0
Else
colore = 15
End If
End If
Worksheets(foglio).Cells(riga, colonna).Interior.ColorIndex = colore
valoreprec = Worksheets(foglio).Cells(riga, colonna).Value
riga = riga + 1
Wend


End Sub

Come cancellare le informazioni personali nascoste nei file doc

18 Mar

Come cancellare le informazioni personali nascoste nei file doc

Funzione Excel SeparaStringa

23 Feb

Function SeparaStringa(Ingresso As String, Separatore As String, Sx As Boolean) As String

‘ Creata il 23 Febbraio 2009
‘ Funzione da utilizzare per separare da una stringa due sottostringhe separate
‘ da un separatore convenzionale come uno spazio oppure una virgola o qualsiasi altro valore
‘ che è comunque indicabile nel secondo parametro di lancio della funzione.
‘ Il terzo parametro di lancio può essere VERO (identifica la sottostringa sinistra) o FALSO

Dim lunghezza

Ingresso = LTrim(Ingresso)
If Sx Then
SeparaStringa = Left(Ingresso, InStrRev(Ingresso, Separatore) – 1)
Else
SeparaStringa = Mid(Ingresso, InStrRev(Ingresso, Separatore) + 1)
End If

End Function

Slide già fatte – Un’idea da copiare?

23 Dic

SlideShare is the best place to share powerpoint presentations

Access

10 Set

Ecco alcune risorse per Access

http://www.sitocomune.com/
http://www.itportal.it/ – Segui la sezione Come fare (tutorial)