Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Outlook > VBA Outlook
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/10/2007, 10h57   #1
Invité de passage
 
Inscription : octobre 2007
Messages : 1
Détails du profil
Informations forums :
Inscription : octobre 2007
Messages : 1
Points : 0
Points : 0
Par défaut [Outlook 07] Comment faire un fond redimensionnable ?

Bonjour

je suis webmaster;
et j'aimerais faire une news letter avec un design personnalisé par outlook mais que ce design soit redimensionable ( et pas répétitif quand on agrandis une fernêtre) car il s'agit d'un logo sur fond noir avec des lignes diverses,

es ce par exemple possible de tout faire sur dreamweaver en html (pour tout ce qui est mise en page, redimmensionnement,..) et de s'en servir comme un fond (thème) sur Outlook?

j'espère que vous pourrez m'aider

merci d'avance !
mimi007 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 29/10/2007, 09h25   #2
Membre chevronné
 
Avatar de Oliv-
 
Inscription : mars 2006
Messages : 643
Détails du profil
Informations personnelles :
Âge : 41

Informations forums :
Inscription : mars 2006
Messages : 643
Points : 699
Points : 699
Salut,
Tu peux toujours essayer cependant selon le logiciel de messagerie qui recevra le mail, le résultat peut être fort différent.(lotus par exemple)


Voici une macro qui copie dans le mail le code html dans le press papier.

Ajoutez une référence à "Microsoft Form 2.0 Object Library."
VBE / Menu Outils / Références
(correspond au fichier c:\windows\system32FM20.DLL)


------------------------------------------------------------------------


Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub change_html()
 
'By Oliv' 02/2007 pour Outlook 2003
 
Dim oitem As Outlook.MailItem 
Set oitem = ActiveInspector.CurrentItem
With New DataObject 
.GetFromClipboard
contenu = .GetText(1)
End With
'MsgBox Contenu
oitem.HTMLBody = contenu
oitem.Display
'décommentez pour enregistrer
'oitem.save
End Sub
Oliv'
Oliv- est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h13.


 
 
 
 
Partenaires

Hébergement Web