j'ai réussi a faire un visionneur d'image avec zoom si ça interesse quelqu'un de savoir comment on fait
cordialement
et moi alors ?softewarzatorman a écrit:Pas des milliers pour moi perso xD
Pour lereparateurdepc et admin, ils ont passés la barre du 1000
Navigateur web Navigator version 2.0 | 0% |
calculette | 20% |
gestionnaire de fichier | 75% |
sécurité, cryptage des mot de passe | 75% |
système de mise à jour automatique | 80% |
éditeur de texte | 100% |
lecteur de musique et de vidéo | 100% |
visionneur d'image | 100% |
interface | 100% |
avancement total | 80% |
Superfandeonepiece2 a écrit:bonjour,
je n'édite pas pour que le message soit visible (quand on édite cela ne s'affiche pas comme non lu)
Droid 2.0 est presque fini mais voici les dernières info
> pas de système pour utiliser des logiciels externes pour le moment
> Navigator 2.0 ne sera pas intégrer dans Droid 2.0 il 'y aura que Navigator 1.0
> Mail bomber (le logiciel permettant d'envoyer des mails) sera créer avec VB et pas SZ car pour moi la fonction envoyer un mail ne marche pas.
> la calculette pourras utiliser des nombres à virgule
cordialement
With CreateObject("CDO.Message")
.From="toto@gmail.com" // ici tu met ton mail meme si elle existe pas
.To="tonDestataire@destinataire.com" // ici tu met la variable du destinataire
.CC="CopieMail@Copiemail.com" // si tu desire mettre une personne en copie
.Subject="test pour envoie de mail" // objet du mail
.TextBody="Bonjour," & Chr(13) & "Ceci est un test " & Chr(13) & "Cordialement" // ton text
// et le chr(13) sert a aller a la ligne
.AddAttachment("c:\piecejointe.pdf") // Tu peut mettre un piece jointe aussi ici, sinon tu met deux slash devant le code
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr" // C'est un exemple
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With
With CreateObject("CDO.Message")
.From="%(VARIABLE=mail_envoi)%"
.To="%(VARIABLE=mail_destinataire)%"
.CC="%(VARIABLE=mail_copie_destinataire)%"
.Subject="%(VARIABLE=titre_mail)%"
.TextBody="%(VARIABLE=texte_mail)%"
.AddAttachment("%(VARIABLE=local_adresse_piece_jointe)%")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "%(VARIABLE=smtp_code)%"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
End If
msgbox "mail bien envoyé"
On Error GoTo 0
End With
|
|