Recent posts

[windows]

#11

Freeware / [ALL OS] Skype, rimuovere pubb...

Last post by Raid - Thu 05 June 2014, 22:54

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

Code Select Expand

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 a...

Last post by Raid - Fri 21 February 2014, 22:00

Mettere in ThisOutlookSession

Code Select Expand

'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 messa...

Last post by Raid - Fri 21 February 2014, 21:58

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

Code Select Expand

'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/est...

Last post by Raid - 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 auto...

Last post by Raid - 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...

Last post by Raid - Sun 27 October 2013, 08:11

Il normale iter della vita. Niente è per sempre 

#17

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

Last post by SS1900 - 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...

Last post by Cris 71 - 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 - 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 - Tue 18 June 2013, 21:37

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