Recent Posts

11

Freeware / [ALL OS] Skype, rimuovere pubblicità

« Last post by Raid on Thu 05 June 2014, 22:54 »

Per rimuovere i banner pubblicitari da skype è sufficiente bloccare, con il filtro web, il seguente dominio:

Code: [Select]

apps.skype.com
Su windows:
Aprite Internet Explorer (in questo caso versione 11)

Opzioni > Opzioni internet

Andate nella Scheda Sicurezza e selezionate la voce Siti con restrizioni.
Cliccate sul tasto Siti e inserite apps.skype.com

Negli altri OS dovete inserire il dominio nei file di filtro Host, dipende dal sistema operativo ma il concetto è lo stesso.

12

Linux, Open Source e compilazione / [VBA] Macro per rilevare gli allegati mancanti Outlook 2010

« Last post by Raid on Fri 21 February 2014, 22:00 »

Mettere in ThisOutlookSession

Code: [Select]

'SUB per verificare la presenza della parola ALLEG e ATTACH nel messaggio
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

'per il codice che cerca ALLEG
Dim answer As Variant

'per il codice che cerca ATTACH
Dim lngPos As Long
Dim strText As String
Dim strSearchText As String
Dim lngStringCount As Long
lngPos = 1
lngStringCount = 0
   
'Facciamo prima cercare gli allegati
   If InStr(1, Item.Body, "alleg", vbTextCompare) > 0 Then
        If Item.Attachments.count = 0 Then
          answer = MsgBox("E' stato rilevata la parola Allegato ma non è presente nessun allegato, inviare comunque?", vbYesNo)
            If answer = vbNo Then
                Cancel = True
            End If
        End If
'Se non ci sono allegati, cerchiamo gli attachments
    Else
        Do
            lngPos = InStr(lngPos, Item.Body, "attach")
            If lngPos > 0 Then
                lngStringCount = lngStringCount + 1
                lngPos = lngPos + Len("alleg")
            End If
        Loop Until lngPos = 0

        'MsgBox lngStringCount & " occorrenze"

' >3 perchè nella firma compare 3 volte quindi devo ignorare le prime 3 volte       
        If lngStringCount > 3 Then
            answer = MsgBox("E' stato rilevata la parola Attachment ma non è presente nessun allegato, inviare comunque?", vbYesNo)
            If answer = vbNo Then
                Cancel = True
            End If
        End If

    End If

End Sub

13

Linux, Open Source e compilazione / [VBA] Macro esportazione messaggi Outlook 2010

« Last post by Raid on Fri 21 February 2014, 21:58 »

Da mettere in ThisOutlookSession e poi attivare il tasto sulla barra personalizzata con Tasto Macro.

Code: [Select]

'Macro per salvare i messaggi in formato MSG con l'export del timestamp INIZIO
'http://www.slipstick.com/developer/code-samples/save-selected-message-file/
Public Sub SaveMessageAsMsg()
  Dim oMail As Outlook.MailItem
  Dim objItem As Object
  Dim sPath As String
  Dim dtDate As Date
  Dim sName As String
  Dim sSender As String
  Dim enviro As String
 
    enviro = CStr(Environ("USERPROFILE"))
   For Each objItem In ActiveExplorer.Selection
    Set oMail = objItem
   
  sName = oMail.Subject
  sSender = oMail.SenderName
  ReplaceCharsForFileName sName, "_"
  ReplaceCharsForSenderName sSender, "_"
 
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "_hhnn", _
    vbUseSystemDayOfWeek, vbUseSystem) & "_" & sSender & "_" & sName & ".msg"
     
    sPath = enviro & "\Documents\"
  Debug.Print sPath & sName
  oMail.SaveAs sPath & sName, olMSG
  Next
End Sub
 
Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "\", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub

Private Sub ReplaceCharsForSenderName(sSender As String, _
  sChr2 As String _
)
  sSender = Replace(sSender, " ", sChr2)

End Sub
'Macro per salvare i messaggi in formato MSG con l'export del timestamp FINE

14

Software / Software modifica autoplay/estensione file/menu contestuale Windows 7

« Last post by Raid on Tue 04 February 2014, 18:33 »

Ottimo software per modificare autoplay/estensione file/menu contestuale in Windows 7

scaricabile su:
http://defaultprogramseditor.com

15

Software / Rimozione voce Dropbox da autoplay menu

« Last post by Raid on Tue 04 February 2014, 18:17 »

Quando si inserisce una periferica, generalmente uno smartphone credo, se si ha dropbox installato compare la voce "importa in drobox" o qualcosa di simile.

Per rimuovere questa voce aprire "Regedit" e cercate chiavi/valori mettendo come testo "DropboxAutoplay" senza apici e cancellate (stare attenti a quello che si cancella).

16

Comunicazioni / Staff's messages / Re: Scadenza dominio Darkforge.it

« Last post by Raid on Sun 27 October 2013, 08:11 »

Il normale iter della vita. Niente è per sempre 

17

Comunicazioni / Staff's messages / Re: Scadenza dominio Darkforge.it

« Last post by SS1900 on Sat 26 October 2013, 13:01 »

e' un peccato ...da quando e' sparito taz ... e' stato un lento declino ...

18

Comunicazioni / Staff's messages / Re: Scadenza dominio Darkforge.it

« Last post by Cris 71 on Fri 25 October 2013, 18:02 »

Già... è un peccato.

E' stato bello e interessante anche per me.
A presto.

Cristiano Usai.

19

Comunicazioni / Staff's messages / Scadenza dominio Darkforge.it

« Last post by Raid on Thu 24 October 2013, 23:26 »

Il dominio è in scadenza, verrà tenuto il DNS ma non l'host.

Il tempo è passato e tutti siamo andati per la nostra strada. E' stato bello. 

Il forum rimarrà in sola lettura con le registrazioni disabilitate.

EDIT: scrittura abilitata per gli utenti registrati, è sempre bello farsi due chiacchiere con vecchi amici 

20

Comunicazioni / Staff's messages / Re: Rinnovo Ackronic.net

« Last post by Raid on Tue 18 June 2013, 21:37 »

EDIT: ha rinnovato e l'ordine verrà processato nei prossimi giorni.