por Pali | Ene 18, 2012 | Programació
Treballant amb Access sovint tinc que consultar coses ja que ningú m’ha ensenyat com funciona el programa i tot s’apren sobre la marxa, com tot vaja xDD
Aquest és el primer de molts post que aniré obrint per fer-me a mi mateix una guia del que faig i de pas ajudar a la resta qui tingui el mateix dubte que jo he resolt. En tot cas començo.
Problema
Estic fent una consulta sobre la Taula -Preclients, en la que hi ha registres que no tenen correu, faig una Consulta que em crea una Taula-PreclientsFiltrats. Això és un problema ja que utilitzo un funció que recorre la Taula-PreclientsFiltrats i envia un correu a cada registre mitjançant Outlook personalitzat i quan troba una direcció nul·la o mal escrita (domini@pepito,com o dominipepito.com) s’atura.
Solució
A la Consulta posar en el camp de «Criterios» (Tinc Office 2010 en castellà) No es nulo
Exemple
Consulta:
Office 2010
Office 2003 Compte amb la sintaxis que canvia de Office 2003 al 2007 en endavant.
Taula-PreclientsFiltrats: Problema correu buit
Office 2003:http://office.microsoft.com/es-es/access-help/ejemplos-de-criterios-de-consulta-HP005188516.aspx?CTT=1
Office 2007: http://office.microsoft.com/es-es/access-help/ejemplos-de-criterios-de-consulta-HA010066611.aspx
Office 2010: http://office.microsoft.com/es-es/access-help/ejemplos-de-criterios-de-consulta-HA010341674.aspx?CTT=1
PD: Compte amb la versió i l’idioma d’Access que utilitzeu!
por Pali | Ene 16, 2012 | Programació
Aquesta funció habitualment s’utilitza per dominis clonats, o webs amb més d’un domini. No te gaire més secret que posar el script dins del nostre index.html i tot llest. Podem configurar el missatge que es mostrarà, el temps que tarda en la redirecció i el web destí òbviament.
var pagina="http://www.elteudomini.algo/"
function redireccionar()
{
location.href=pagina
}
setTimeout ("redireccionar()", 4500);
Això en HTML quedaria així per exemple
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Redirecció</title>
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style>
</head>
<body>
<!--Redireccio-->
<script LANGUAGE="JavaScript">
var pagina="http://www.elteudomini.algo/"
function redireccionar()
{
location.href=pagina
}
setTimeout ("redireccionar()", 4500);
</script>
<!--Redireccio-->
<p> </p>
<h1><strong>Esta sent redireccionat al web.</strong></h1>
<h1> </h1>
<h1><strong>Si no funciona, prem el següent <a href="http://www.elteudomini.algo">enllaç</a></strong></h1>
<p> </p>
</body>
</html>
por Pali | Ene 13, 2012 | Programació
Cansat de que la pàgina principal fos intermiable, sobretot amb les guies extenses que faig xDD, vaig pensar que podia sortir com la quan selecciones la opció de «Galeria» editant el vostre WP
Total que buscant una mica per internet, i fent una mirada del que fa WP quan seleccionem la opció de Galeria, vaig posar això.
Dins del nostre tema, si editem el loop.php
Busquem la funció <div class=»entry-content» > i substituïm per això:
<div class="entry-content">
<?php if ( function_exists("has_post_thumbnail") && has_post_thumbnail() ) { the_post_thumbnail(array(150,150), array("class" => "alignleft post_thumbnail")); } ?>
<?php // Prova mostrant miniatures a la portada com la galeria
?>
<?php
$images = get_children( array( 'post_parent' => $post->ID, 'post_type' => 'attachment', 'post_mime_type' => 'image', 'orderby' => 'menu_order', 'order' => 'ASC', 'numberposts' => 999 ) );
if ( $images ) :
$total_images = count( $images );
$image = array_shift( $images );
$image_img_tag = wp_get_attachment_image( $image->ID, 'thumbnail' );
?>
<div class="gallery-thumb">
<a class="size-thumbnail" href="<?php the_permalink(); ?>"><?php echo $image_img_tag; ?></a>
</div><!-- .gallery-thumb --><p> </p>
<?php the_excerpt(); ?>
<?php else : ?>
<?php the_content( __( 'Continue reading <span>→</span>', 'twentyten' ) ); ?>
<?php endif; ?>
<?php wp_link_pages( array( 'before' => '<div class="page-link">' . __( 'Pages:', 'twentyten' ), 'after' => '</div>' ) ); ?>
</div><!-- .entry-content -->
<?php endif; ?>
I després per que això també passi quan busquem o llistem per categories canviem aquesta línia:
<?php if ( is_archive() || is_search() ) : // Only display excerpts for archives and search. ?>
Per aquesta altre:
<?php if (is_search() ) : // Only display excerpts for search. ?>
Lògic no? xD
Exemple:
PD: Per que surtin així, s’ha de inserir una imatge mitjançant el gestor de WP, no una inserida mitjançant HTML
Apa 🙂
por Pali | Ene 13, 2012 | Programació
Avui mateix per escriure una mini guia he tingut que investigar 5 min com fer un post maco amb el codi. Si sou usuaris de WordPress, directament te una funció instal·lada ja en el seu codi, feu un cop d’ull aquí, si no és el vostre cas, i teniu un wordpress en servidor privat, he trobat el Plugin WP SyntaxHighlighter soporta molts llenguatges de programació i per el poc que he provat, funciona molt be. A part te alguns Skins per semblar-se a programes amb els que programem normalment, com l’Eclipse
A disfrutar
Os deixo un exemple de codi en Visual Basic d’aquest post
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim CorreuEnviat As Recipient
Dim Missatge As String
Dim Resposta As Integer
Dim CorreuCCO As String
On Error Resume Next
' #### Opcions d'usuari ####
' adreça per CCO -- ha de ser una adreça SMTP
' dins de l'agenda
CorreuCCO = "correu@elvostredomini.algo"
Set CorreuEnviat = Item.Recipients.Add(CorreuCCO)
CorreuEnviat.Type = olBCC
If Not CorreuEnviat.Resolve Then
Missatge = "No s'ha trobat el destinatari CCO. " & _
"Segueixes volent enviar el missatge?"
Resposta = MsgBox(Missatge, vbYesNo + vbDefaultButton1, _
"No s'ha trovat el destinatari CCO")
If Resposta = vbNo Then
Cancel = True
End If
End If
Set CorreuEnviat = Nothing
End Sub
![Automàtic CCO per els correus sortints des d’Outlook]()
por Pali | Ene 13, 2012 | Programació
Bon dia!
Be, per temes de treball he tingut que fer la copia absoluta de tot el que es rep en un correu mitjançant Outlook 2010 i rebre-ho en un altre ordinador amb Outlook, que és lo de menys. La cosa es que en el lloc on rebo el backup d’aquesta conta de correu tinc que tindre tant els rebuts com els enviats. Per tot això i desprès de diverses proves amb Regles d’Outlook, m’he decidit posar en pràctica el que vaig aprendre en un curset de vBasic, òbviament ajudant-me de sant Google, ja que tinc el poc codi que sé oxidat.
Per fer això hem d’anar a Visual Basic d’intre d’Outlook, el trobareu a la pestanya de «Programador». Un cop allà anem a «Application» i al desplegable de la dreta «ItemSend». Un cop allà copiem aquest codi:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim CorreuEnviat As Recipient
Dim Missatge As String
Dim Resposta As Integer
Dim CorreuCCO As String
On Error Resume Next
' #### Opcions d'usuari ####
' adreça per CCO -- ha de ser una adreça SMTP
' dins de l'agenda
CorreuCCO = "correu@elvostredomini.algo"
Set CorreuEnviat = Item.Recipients.Add(CorreuCCO)
CorreuEnviat.Type = olBCC
If Not CorreuEnviat.Resolve Then
Missatge = "No s'ha trobat el destinatari CCO. " & _
"Segueixes volent enviar el missatge?"
Resposta = MsgBox(Missatge, vbYesNo + vbDefaultButton1, _
"No s'ha trovat el destinatari CCO")
If Resposta = vbNo Then
Cancel = True
End If
End If
Set CorreuEnviat = Nothing
End Sub
Recordeu d’habilitar les macros i de comprovar que realment funciona havent reiniciat outlook desprès de modificar el ItemSend, marcant sobre la funció dins de Visual Basic. Aquesta marca serveix per posar un punt de pausa sobre l’execució d’aquesta funció.
Minimitzar-lo i enviar un correu de prova, un cop li doneu a enviar os ha de saltar la pantalla del Visual Basic amb això
Si premeu F8 veureu com recorre la funció pas a pas, si no F5 per que segueixi fent normal.
Trobareu el post original en aquest enllaç
Com podreu veure poca pràctica he fet, tot i que això em serveixi al menys per entendre el que he fet. jaja
![Automàtic CCO per els correus sortints des d’Outlook]()
por Pali | Ene 9, 2012 | Pali's SAT
Ahir em truca una cosina del meu pare i em diu, escolta, em comprat un pc nou ja que l’antic no anava i jo…. només funcionava a cops al principi però ara ja ni això. Com que els vaig fer un programa per gestionar la seva Autoescola, aprofito per fer algo de promoció xD, La Primera de Llefià, i cla ara no li funciona per que no es un copia pega. Total que l’he recollit i ara ja el tinc a casa per fer el diagnosis. En principi en 6 anys no l’ha tocat ni deu. Comencem!
Foto pacient:
Com es veu a la foto, te més pols…
Al principi tot be, però al tocar una mica el cable del SATA em dono conte que fa mal contacte, tiro el cable i en poso un de nou. De moment no sembla falla cap cosa més. Reforça la teoria del cop per que funcioni, més si es tractava del disc dur.
Un cop fet tot això faig un manteniment bàsic, netejar pols, canviar pasta tèrmica i en acabat l’encendré a veure si va.
Apliquem llexiu per pasta tèrmica i deixem tant el processador com el dissipador nets.
Funcionant a ple rendiment, tot correcte ^^.
Com a curiositat porta dues tapes per CD però només en porta 1 xDD
