Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


[RESOLU][SZ 2011] Problème Envoyer un e-mail

Partagez
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

[RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Saracax le Dim 11 Mar 2012 - 11:17

Bonjour,

Je suis actuellement en train de créer un logiciel ayant pour possibilité d'envoyer un e-mail.
or , quand je compile mon projet , la génération échoue et rien ne s'affiche dans les erreurs de génération.

J'ai pris quelques screenshots :















Voilà , si vous désirez d'autres photos , merci de m'en faire part.
Je tiens à préciser qu'avant la création de ce système pour envoyer un e-mail , mon projet se compilait avec succès.

Cordialement,
Saracax


Dernière édition par Saracax le Dim 11 Mar 2012 - 20:03, édité 1 fois



Saracax Production
avatar
MaXaM Software
Nouveau
Nouveau

Masculin Nombre de messages : 46
Age : 19
Localisation : France - Midi-Pyrénées
Date d'inscription : 13/02/2012

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par MaXaM Software le Dim 11 Mar 2012 - 12:09

Bonjour,
Il faudrait essayer de remplacer
par "Me.textbox1"

Cordialement
Maxam Software
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Saracax le Dim 11 Mar 2012 - 12:58


Re,

Merci pour votre réponse mais malheureusement , rien n'a changé.
>> ( Génération échouée + Rien d'affiché dans les erreurs de génération )

Cordialement,
Saracax



Saracax Production
avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1875
Age : 25
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Etudiant à SUPINFO International University, stagiaire à Microsoft Corporation
Date d'inscription : 24/01/2008

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Admin le Dim 11 Mar 2012 - 13:10

Bonjour,

Essayez de faire un clique droit dans le panneau Erreurs de générations, puis Ouvrir le dernier rapport de génération, et mettez le contenu du fichier qui s'ouvre ici Smile



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Saracax le Dim 11 Mar 2012 - 17:35

Re,

Spoiler:

Project : SEditor
Last build the dimanche 11 mars 2012 at 18:33

Building failed : errors number: 3
File code : C:\Program Files (x86)\Veler Software\SoftwareZator 2011\Temp\Code.vb

Project setting :
Type : ApplicationWindows
Debug : Classique
FormStart : WindowsForm1.szw
SplashScreen :
Optimize : True
----------------------------------------------------------------
5 - Line 0, Column 0, Error BC2007 : option 'win32manifest:"C:\Users\Leonard\Documents\Mes Projets SoftwareZator\SEditor\Bin\SEditor.manifest"'; non reconnue ignorée
6 - Line 1281, Column 0, Error BC30518 : La résolution de surcharge a échoué, car aucun 'Show' accessible ne peut être appelé avec ces arguments :
7 - Line 1281, Column 0, Error BC32017 : Virgule, ')' ou continuation d'expression valide attendue.
----------------------------------------------------------------

' NOTE :
' TOUTES MODIFICATIONS APPORTEES A CE FICHIER CODE NE SERONT PAS PRISES EN COMPTE LORS DE LA REGENERATION DU PROJET.

'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.5448
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Imports System.ComponentModel

Imports System.Windows.Forms

<Assembly: Reflection.AssemblyTitle("SEditor")>
<Assembly: Reflection.AssemblyDescription("")>
<Assembly: Reflection.AssemblyCompany("")>
<Assembly: Reflection.AssemblyProduct("")>
<Assembly: Reflection.AssemblyCopyright("Copyright © 2012")>
<Assembly: Reflection.AssemblyTrademark("")>
<Assembly: Reflection.AssemblyVersion("1.0.0.0")>
<Assembly: Reflection.AssemblyFileVersion("1.0.0.0")>
<Assembly: Runtime.InteropServices.ComVisible(True)>


'Ce Namespace a été généré par SoftwareZator 2011 Edition Standard (2.0.0.0)
Namespace SEditor

Public Class AboutBox1_f
Inherits System.Windows.Forms.Form

Public WithEvents LabelVersion As System.Windows.Forms.Label

Public WithEvents LabelCopyright As System.Windows.Forms.Label

Public WithEvents LabelCompanyName As System.Windows.Forms.Label

Public WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel

Public WithEvents LogoPictureBox As System.Windows.Forms.PictureBox

Public WithEvents LabelProductName As System.Windows.Forms.Label

Public WithEvents TextBoxDescription As System.Windows.Forms.TextBox

Public WithEvents OKButton As System.Windows.Forms.Button

Public WithEvents linkLabel1 As System.Windows.Forms.LinkLabel

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1_f))
Me.LabelVersion = New System.Windows.Forms.Label
Me.LabelCopyright = New System.Windows.Forms.Label
Me.LabelCompanyName = New System.Windows.Forms.Label
Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel
Me.LabelProductName = New System.Windows.Forms.Label
Me.TextBoxDescription = New System.Windows.Forms.TextBox
Me.OKButton = New System.Windows.Forms.Button
Me.linkLabel1 = New System.Windows.Forms.LinkLabel
Me.LogoPictureBox = New System.Windows.Forms.PictureBox
Me.TableLayoutPanel.SuspendLayout
CType(Me.LogoPictureBox,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'LabelVersion
'
Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelVersion.Location = New System.Drawing.Point(133, 26)
Me.LabelVersion.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.Size = New System.Drawing.Size(250, 17)
Me.LabelVersion.TabIndex = 0
Me.LabelVersion.Text = "Version 1.1.0"
Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCopyright
'
Me.LabelCopyright.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCopyright.Location = New System.Drawing.Point(133, 52)
Me.LabelCopyright.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCopyright.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCopyright.Name = "LabelCopyright"
Me.LabelCopyright.Size = New System.Drawing.Size(250, 17)
Me.LabelCopyright.TabIndex = 0
Me.LabelCopyright.Text = "Copyright 2011-2012"
Me.LabelCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelCompanyName
'
Me.LabelCompanyName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelCompanyName.Location = New System.Drawing.Point(133, 78)
Me.LabelCompanyName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelCompanyName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelCompanyName.Name = "LabelCompanyName"
Me.LabelCompanyName.Size = New System.Drawing.Size(250, 17)
Me.LabelCompanyName.TabIndex = 0
Me.LabelCompanyName.Text = "Saracax Production"
Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TableLayoutPanel
'
Me.TableLayoutPanel.ColumnCount = 2
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33!))
Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 67!))
Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0)
Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1)
Me.TableLayoutPanel.Controls.Add(Me.LabelCopyright, 1, 2)
Me.TableLayoutPanel.Controls.Add(Me.LabelCompanyName, 1, 3)
Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4)
Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 6)
Me.TableLayoutPanel.Controls.Add(Me.linkLabel1, 1, 5)
Me.TableLayoutPanel.Controls.Add(Me.LogoPictureBox, 0, 0)
Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.TableLayoutPanel.Location = New System.Drawing.Point(9, 9)
Me.TableLayoutPanel.Name = "TableLayoutPanel"
Me.TableLayoutPanel.RowCount = 7
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 37.5!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40!))
Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel.Size = New System.Drawing.Size(386, 248)
Me.TableLayoutPanel.TabIndex = 1
'
'LabelProductName
'
Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill
Me.LabelProductName.Location = New System.Drawing.Point(133, 0)
Me.LabelProductName.Margin = New System.Windows.Forms.Padding(6, 0, 3, 0)
Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 17)
Me.LabelProductName.Name = "LabelProductName"
Me.LabelProductName.Size = New System.Drawing.Size(250, 17)
Me.LabelProductName.TabIndex = 0
Me.LabelProductName.Text = "SEditor"
Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'TextBoxDescription
'
Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill
Me.TextBoxDescription.Location = New System.Drawing.Point(133, 107)
Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(6, 3, 3, 3)
Me.TextBoxDescription.Multiline = true
Me.TextBoxDescription.Name = "TextBoxDescription"
Me.TextBoxDescription.ReadOnly = true
Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.TextBoxDescription.Size = New System.Drawing.Size(250, 72)
Me.TextBoxDescription.TabIndex = 0
Me.TextBoxDescription.TabStop = false
Me.TextBoxDescription.Text = "Description :"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEditor est un éditeur de texte simplifié , avec des nouvelles i"& _
"nterfaces et des nouvelles options plus pratiques et plus performantes."
'
'OKButton
'
Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.OKButton.Location = New System.Drawing.Point(308, 225)
Me.OKButton.Name = "OKButton"
Me.OKButton.Size = New System.Drawing.Size(75, 20)
Me.OKButton.TabIndex = 0
Me.OKButton.Text = "&OK"
'
'linkLabel1
'
Me.linkLabel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.linkLabel1.Location = New System.Drawing.Point(130, 182)
Me.linkLabel1.Name = "linkLabel1"
Me.linkLabel1.Size = New System.Drawing.Size(253, 40)
Me.linkLabel1.TabIndex = 1
Me.linkLabel1.TabStop = true
Me.linkLabel1.Text = "Ce produit a été réalisé par Saracax Production avec la technologie SoftwareZator"& _
" 2011 - Tous droits réservés."
'
'LogoPictureBox
'
Me.LogoPictureBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.LogoPictureBox.ErrorImage = CType(resources.GetObject("LogoPictureBox.ErrorImage"),System.Drawing.Image)
Me.LogoPictureBox.Image = CType(resources.GetObject("LogoPictureBox.Image"),System.Drawing.Image)
Me.LogoPictureBox.InitialImage = CType(resources.GetObject("LogoPictureBox.InitialImage"),System.Drawing.Image)
Me.LogoPictureBox.Location = New System.Drawing.Point(3, 3)
Me.LogoPictureBox.Name = "LogoPictureBox"
Me.TableLayoutPanel.SetRowSpan(Me.LogoPictureBox, 7)
Me.LogoPictureBox.Size = New System.Drawing.Size(121, 242)
Me.LogoPictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.LogoPictureBox.TabIndex = 0
Me.LogoPictureBox.TabStop = false
'
'AboutBox1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.OKButton
Me.ClientSize = New System.Drawing.Size(404, 266)
Me.Controls.Add(Me.TableLayoutPanel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "AboutBox1"
Me.Padding = New System.Windows.Forms.Padding(9)
Me.ShowIcon = false
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "A propos de SEditor"
Me.TableLayoutPanel.ResumeLayout(false)
Me.TableLayoutPanel.PerformLayout
CType(Me.LogoPictureBox,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
End Class

Public Class WindowsForm1_f
Inherits System.Windows.Forms.Form

Public WithEvents menuStrip1 As System.Windows.Forms.MenuStrip

Public WithEvents fichierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents nouveauToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents ouvrirLaListeDeTousMesFichiersToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents editionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents textBox1 As System.Windows.Forms.TextBox

Public WithEvents quitterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents copierToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents collerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents couperToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents annulerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents button3 As System.Windows.Forms.Button

Public WithEvents button4 As System.Windows.Forms.Button

Public WithEvents optionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents préférencesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents exécuterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents voirMonTexteSurLeWebToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents exécuterMaPageWebToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents plusToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents siteOfficielDeSEditorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents mettreÀJourSEditorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents aProposDeSEditorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

Public WithEvents toolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm1_f))
Me.menuStrip1 = New System.Windows.Forms.MenuStrip
Me.fichierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.nouveauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.ouvrirLaListeDeTousMesFichiersToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.quitterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.editionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.copierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.collerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.couperToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.annulerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.optionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.préférencesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.exécuterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.voirMonTexteSurLeWebToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.exécuterMaPageWebToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.plusToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.siteOfficielDeSEditorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.mettreÀJourSEditorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.aProposDeSEditorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.textBox1 = New System.Windows.Forms.TextBox
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.button3 = New System.Windows.Forms.Button
Me.button4 = New System.Windows.Forms.Button
Me.toolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem
Me.menuStrip1.SuspendLayout
Me.SuspendLayout
'
'menuStrip1
'
Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.fichierToolStripMenuItem, Me.editionToolStripMenuItem, Me.optionsToolStripMenuItem, Me.exécuterToolStripMenuItem, Me.plusToolStripMenuItem})
Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
Me.menuStrip1.Name = "menuStrip1"
Me.menuStrip1.Size = New System.Drawing.Size(946, 24)
Me.menuStrip1.TabIndex = 0
Me.menuStrip1.Text = "menuStrip1"
'
'fichierToolStripMenuItem
'
Me.fichierToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.nouveauToolStripMenuItem, Me.ouvrirLaListeDeTousMesFichiersToolStripMenuItem, Me.quitterToolStripMenuItem})
Me.fichierToolStripMenuItem.Name = "fichierToolStripMenuItem"
Me.fichierToolStripMenuItem.Size = New System.Drawing.Size(54, 20)
Me.fichierToolStripMenuItem.Text = "Fichier"
'
'nouveauToolStripMenuItem
'
Me.nouveauToolStripMenuItem.Name = "nouveauToolStripMenuItem"
Me.nouveauToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
Me.nouveauToolStripMenuItem.Text = "Nouveau"
'
'ouvrirLaListeDeTousMesFichiersToolStripMenuItem
'
Me.ouvrirLaListeDeTousMesFichiersToolStripMenuItem.Name = "ouvrirLaListeDeTousMesFichiersToolStripMenuItem"
Me.ouvrirLaListeDeTousMesFichiersToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
Me.ouvrirLaListeDeTousMesFichiersToolStripMenuItem.Text = "Liste de tous mes fichiers"
'
'quitterToolStripMenuItem
'
Me.quitterToolStripMenuItem.Name = "quitterToolStripMenuItem"
Me.quitterToolStripMenuItem.Size = New System.Drawing.Size(206, 22)
Me.quitterToolStripMenuItem.Text = "Quitter sans enregistrer"
'
'editionToolStripMenuItem
'
Me.editionToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.copierToolStripMenuItem, Me.collerToolStripMenuItem, Me.couperToolStripMenuItem, Me.annulerToolStripMenuItem})
Me.editionToolStripMenuItem.Name = "editionToolStripMenuItem"
Me.editionToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.editionToolStripMenuItem.Text = "Edition"
'
'copierToolStripMenuItem
'
Me.copierToolStripMenuItem.Name = "copierToolStripMenuItem"
Me.copierToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
Me.copierToolStripMenuItem.Text = "Copier"
'
'collerToolStripMenuItem
'
Me.collerToolStripMenuItem.Name = "collerToolStripMenuItem"
Me.collerToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
Me.collerToolStripMenuItem.Text = "Coller"
'
'couperToolStripMenuItem
'
Me.couperToolStripMenuItem.Name = "couperToolStripMenuItem"
Me.couperToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
Me.couperToolStripMenuItem.Text = "Couper"
'
'annulerToolStripMenuItem
'
Me.annulerToolStripMenuItem.Name = "annulerToolStripMenuItem"
Me.annulerToolStripMenuItem.Size = New System.Drawing.Size(116, 22)
Me.annulerToolStripMenuItem.Text = "Annuler"
'
'optionsToolStripMenuItem
'
Me.optionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.préférencesToolStripMenuItem})
Me.optionsToolStripMenuItem.Name = "optionsToolStripMenuItem"
Me.optionsToolStripMenuItem.Size = New System.Drawing.Size(61, 20)
Me.optionsToolStripMenuItem.Text = "Options"
'
'préférencesToolStripMenuItem
'
Me.préférencesToolStripMenuItem.Name = "préférencesToolStripMenuItem"
Me.préférencesToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.préférencesToolStripMenuItem.Text = "Préférences..."
'
'exécuterToolStripMenuItem
'
Me.exécuterToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.voirMonTexteSurLeWebToolStripMenuItem, Me.exécuterMaPageWebToolStripMenuItem})
Me.exécuterToolStripMenuItem.Name = "exécuterToolStripMenuItem"
Me.exécuterToolStripMenuItem.Size = New System.Drawing.Size(63, 20)
Me.exécuterToolStripMenuItem.Text = "Exécuter"
'
'voirMonTexteSurLeWebToolStripMenuItem
'
Me.voirMonTexteSurLeWebToolStripMenuItem.Name = "voirMonTexteSurLeWebToolStripMenuItem"
Me.voirMonTexteSurLeWebToolStripMenuItem.Size = New System.Drawing.Size(227, 22)
Me.voirMonTexteSurLeWebToolStripMenuItem.Text = "Voir mon texte sur Bloc-Note"
'
'exécuterMaPageWebToolStripMenuItem
'
Me.exécuterMaPageWebToolStripMenuItem.Name = "exécuterMaPageWebToolStripMenuItem"
Me.exécuterMaPageWebToolStripMenuItem.Size = New System.Drawing.Size(227, 22)
Me.exécuterMaPageWebToolStripMenuItem.Text = "Exécuter ma page web"
'
'plusToolStripMenuItem
'
Me.plusToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.siteOfficielDeSEditorToolStripMenuItem, Me.toolStripMenuItem1, Me.mettreÀJourSEditorToolStripMenuItem, Me.aProposDeSEditorToolStripMenuItem})
Me.plusToolStripMenuItem.Name = "plusToolStripMenuItem"
Me.plusToolStripMenuItem.Size = New System.Drawing.Size(41, 20)
Me.plusToolStripMenuItem.Text = "Plus"
'
'siteOfficielDeSEditorToolStripMenuItem
'
Me.siteOfficielDeSEditorToolStripMenuItem.Name = "siteOfficielDeSEditorToolStripMenuItem"
Me.siteOfficielDeSEditorToolStripMenuItem.Size = New System.Drawing.Size(246, 22)
Me.siteOfficielDeSEditorToolStripMenuItem.Text = "Site Officiel de SEditor ( Saracax )"
'
'mettreÀJourSEditorToolStripMenuItem
'
Me.mettreÀJourSEditorToolStripMenuItem.Name = "mettreÀJourSEditorToolStripMenuItem"
Me.mettreÀJourSEditorToolStripMenuItem.Size = New System.Drawing.Size(246, 22)
Me.mettreÀJourSEditorToolStripMenuItem.Text = "Mettre à jour SEditor"
'
'aProposDeSEditorToolStripMenuItem
'
Me.aProposDeSEditorToolStripMenuItem.Name = "aProposDeSEditorToolStripMenuItem"
Me.aProposDeSEditorToolStripMenuItem.Size = New System.Drawing.Size(246, 22)
Me.aProposDeSEditorToolStripMenuItem.Text = "A propos de SEditor"
'
'textBox1
'
Me.textBox1.Location = New System.Drawing.Point(12, 27)
Me.textBox1.Multiline = true
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(922, 405)
Me.textBox1.TabIndex = 1
'
'button1
'
Me.button1.Font = New System.Drawing.Font("Segoe UI Semibold", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.button1.Location = New System.Drawing.Point(336, 439)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(261, 56)
Me.button1.TabIndex = 2
Me.button1.Text = "Enregistrer"
Me.button1.UseVisualStyleBackColor = true
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Segoe UI", 12.25!)
Me.button2.Location = New System.Drawing.Point(746, 462)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(188, 33)
Me.button2.TabIndex = 3
Me.button2.Text = "Envoyer par e-mail"
Me.button2.UseVisualStyleBackColor = true
'
'button3
'
Me.button3.Font = New System.Drawing.Font("Segoe UI", 12.25!)
Me.button3.Location = New System.Drawing.Point(128, 460)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(115, 36)
Me.button3.TabIndex = 4
Me.button3.Text = "Nouveau"
Me.button3.UseVisualStyleBackColor = true
'
'button4
'
Me.button4.Font = New System.Drawing.Font("Segoe UI", 12.25!)
Me.button4.Location = New System.Drawing.Point(12, 460)
Me.button4.Name = "button4"
Me.button4.Size = New System.Drawing.Size(110, 37)
Me.button4.TabIndex = 5
Me.button4.Text = "Quitter"
Me.button4.UseVisualStyleBackColor = true
'
'toolStripMenuItem1
'
Me.toolStripMenuItem1.Name = "toolStripMenuItem1"
Me.toolStripMenuItem1.Size = New System.Drawing.Size(246, 22)
Me.toolStripMenuItem1.Text = "Forum"
'
'WindowsForm1
'
Me.ClientSize = New System.Drawing.Size(946, 507)
Me.Controls.Add(Me.button4)
Me.Controls.Add(Me.button3)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button1)
Me.Controls.Add(Me.textBox1)
Me.Controls.Add(Me.menuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MainMenuStrip = Me.menuStrip1
Me.Name = "WindowsForm1"
Me.Text = "SEditor 1.1 - Editeur de texte simplifié"
Me.menuStrip1.ResumeLayout(false)
Me.menuStrip1.PerformLayout
Me.ResumeLayout(false)
Me.PerformLayout
End Sub

<System.STAThreadAttribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.EnableVisualStyles()
If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5", "Version", Nothing) Is Nothing Then
System.Windows.Forms.MessageBox.Show("The .Net Framework 3.5 was not found. SEditor can't start without it. Please install the .Net Framework 3.5 and try again.", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Diagnostics.Process.Start("http://www.microsoft.com/downloads/details.aspx?FamilyId=333325FD-AE52-4E35-B531-508D977D32A6&displaylang=fr")
End
End If
My.Resources.Culture = Globalization.CultureInfo.InvariantCulture : My.Resources.Culture = My.Resources.Culture
System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
For Each arg As String In System.Environment.GetCommandLineArgs
If Not arg = System.Windows.Forms.Application.ExecutablePath Then
Redim Preserve ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length) : ALL_ARGUMENTS_APPLICATIONS(ALL_ARGUMENTS_APPLICATIONS.Length - 1) = arg
End If
Next
System.Windows.Forms.Application.Run(New WindowsForm1_f)
End Sub
End Class


Public Class WindowsForm3_f
Inherits System.Windows.Forms.Form

Public WithEvents button1 As System.Windows.Forms.Button

Public WithEvents button2 As System.Windows.Forms.Button

Public WithEvents label1 As System.Windows.Forms.Label

Public WithEvents label2 As System.Windows.Forms.Label

Public WithEvents label3 As System.Windows.Forms.Label

Public WithEvents button3 As System.Windows.Forms.Button

Public WithEvents textBox1 As System.Windows.Forms.TextBox

Public WithEvents label4 As System.Windows.Forms.Label

Public WithEvents textBox2 As System.Windows.Forms.TextBox

Public WithEvents textBox3 As System.Windows.Forms.TextBox

Public WithEvents textBox4 As System.Windows.Forms.TextBox

Public WithEvents groupBox1 As System.Windows.Forms.GroupBox

Public WithEvents label7 As System.Windows.Forms.Label

Public WithEvents label6 As System.Windows.Forms.Label

Public WithEvents label5 As System.Windows.Forms.Label

Public WithEvents components As System.ComponentModel.IContainer

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WindowsForm3_f))
Me.button1 = New System.Windows.Forms.Button
Me.button2 = New System.Windows.Forms.Button
Me.label1 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.label3 = New System.Windows.Forms.Label
Me.button3 = New System.Windows.Forms.Button
Me.textBox1 = New System.Windows.Forms.TextBox
Me.label4 = New System.Windows.Forms.Label
Me.textBox2 = New System.Windows.Forms.TextBox
Me.textBox3 = New System.Windows.Forms.TextBox
Me.textBox4 = New System.Windows.Forms.TextBox
Me.groupBox1 = New System.Windows.Forms.GroupBox
Me.label7 = New System.Windows.Forms.Label
Me.label6 = New System.Windows.Forms.Label
Me.label5 = New System.Windows.Forms.Label
Me.groupBox1.SuspendLayout
Me.SuspendLayout
'
'button1
'
Me.button1.Font = New System.Drawing.Font("Segoe UI", 15.25!)
Me.button1.Location = New System.Drawing.Point(258, 215)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(159, 56)
Me.button1.TabIndex = 0
Me.button1.Text = "Envoyer"
Me.button1.UseVisualStyleBackColor = true
'
'button2
'
Me.button2.Font = New System.Drawing.Font("Segoe UI", 13.25!)
Me.button2.Location = New System.Drawing.Point(12, 225)
Me.button2.Name = "button2"
Me.button2.Size = New System.Drawing.Size(85, 38)
Me.button2.TabIndex = 1
Me.button2.Text = "Annuler"
Me.button2.UseVisualStyleBackColor = true
'
'label1
'
Me.label1.Location = New System.Drawing.Point(13, 13)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(46, 23)
Me.label1.TabIndex = 2
Me.label1.Text = "De :"
'
'label2
'
Me.label2.Location = New System.Drawing.Point(12, 40)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(47, 23)
Me.label2.TabIndex = 3
Me.label2.Text = "A :"
'
'label3
'
Me.label3.Location = New System.Drawing.Point(12, 108)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(126, 23)
Me.label3.TabIndex = 4
Me.label3.Text = "Sujet du message :"
'
'button3
'
Me.button3.Font = New System.Drawing.Font("Segoe UI", 14.25!)
Me.button3.Location = New System.Drawing.Point(104, 225)
Me.button3.Name = "button3"
Me.button3.Size = New System.Drawing.Size(148, 38)
Me.button3.TabIndex = 5
Me.button3.Text = "Prévisualiser"
Me.button3.UseVisualStyleBackColor = true
'
'textBox1
'
Me.textBox1.Location = New System.Drawing.Point(65, 10)
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(276, 26)
Me.textBox1.TabIndex = 6
Me.textBox1.Text = "Votre e-mail"
'
'label4
'
Me.label4.Location = New System.Drawing.Point(12, 76)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(108, 23)
Me.label4.TabIndex = 7
Me.label4.Text = "Serveur SMTP :"
'
'textBox2
'
Me.textBox2.Location = New System.Drawing.Point(65, 40)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New System.Drawing.Size(276, 26)
Me.textBox2.TabIndex = 8
Me.textBox2.Text = "e-mail du destinataire"
'
'textBox3
'
Me.textBox3.Location = New System.Drawing.Point(126, 73)
Me.textBox3.Name = "textBox3"
Me.textBox3.Size = New System.Drawing.Size(215, 26)
Me.textBox3.TabIndex = 9
Me.textBox3.Text = "votre serveur SMTP"
'
'textBox4
'
Me.textBox4.Location = New System.Drawing.Point(144, 108)
Me.textBox4.Name = "textBox4"
Me.textBox4.Size = New System.Drawing.Size(273, 26)
Me.textBox4.TabIndex = 10
Me.textBox4.Text = "objet/sujet de votre message"
'
'groupBox1
'
Me.groupBox1.Controls.Add(Me.label7)
Me.groupBox1.Controls.Add(Me.label6)
Me.groupBox1.Controls.Add(Me.label5)
Me.groupBox1.Location = New System.Drawing.Point(423, 2)
Me.groupBox1.Name = "groupBox1"
Me.groupBox1.Size = New System.Drawing.Size(463, 302)
Me.groupBox1.TabIndex = 11
Me.groupBox1.TabStop = false
Me.groupBox1.Text = "Prévisualisation"
'
'label7
'
Me.label7.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.label7.Location = New System.Drawing.Point(6, 106)
Me.label7.Name = "label7"
Me.label7.Size = New System.Drawing.Size(451, 191)
Me.label7.TabIndex = 2
'
'label6
'
Me.label6.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.label6.Location = New System.Drawing.Point(72, 38)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(385, 59)
Me.label6.TabIndex = 1
'
'label5
'
Me.label5.Location = New System.Drawing.Point(7, 34)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(59, 23)
Me.label5.TabIndex = 0
Me.label5.Text = "Objet :"
'
'WindowsForm3
'
Me.ClientSize = New System.Drawing.Size(898, 308)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.textBox4)
Me.Controls.Add(Me.textBox3)
Me.Controls.Add(Me.textBox2)
Me.Controls.Add(Me.label4)
Me.Controls.Add(Me.textBox1)
Me.Controls.Add(Me.button3)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.label1)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button1)
Me.Font = New System.Drawing.Font("Segoe UI", 10.25!)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "WindowsForm3"
Me.Text = "Envoyer votre fichier par e-mail"
Me.groupBox1.ResumeLayout(false)
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
End Class

Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_SOFTWAREZATOR_VARIABLES
Public VARIABLES_SOFTWAREZATOR_CURRENT_PLUGIN_VARIABLES As String
Public textearemplacer As Object '
Public textealaplace As Object '
Public test As Object '
Public sujet As Object '
Public smtp As Object '
Public nomdudocument As Object '
Public extensiondufichier As Object '
Public enregistrersous As Object '
Public de As Object '
Public contenuaenregistrersous As Object '
Public contenu1 As Object '
Public aqui As Object '
Public ALL_ARGUMENTS_APPLICATIONS() As Object = New Object(-1){}
Public ALLUSERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("ALLUSERPROFILE"))
Public APPDATA As Object = CStr(Environment.GetEnvironmentVariable("APPDATA"))
Public CLASSPATH As Object = CStr(Environment.GetEnvironmentVariable("CLASSPATH"))
Public CommonProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("CommonProgramFiles"))
Public COMPUTERNAME As Object = CStr(Environment.GetEnvironmentVariable("COMPUTERNAME"))
Public ComSpec As Object = CStr(Environment.GetEnvironmentVariable("ComSpec"))
Public FP_NO_HOST_CHECK As Object = CStr(Environment.GetEnvironmentVariable("FP_NO_HOST_CHECK"))
Public HOMEDRIVE As Object = CStr(Environment.GetEnvironmentVariable("HOMEDRIVE"))
Public HOMEPATH As Object = CStr(Environment.GetEnvironmentVariable("HOMEPATH"))
Public LOCALAPPDATA As Object = CStr(Environment.GetEnvironmentVariable("LOCALAPPDATA"))
Public LOGONSERVER As Object = CStr(Environment.GetEnvironmentVariable("LOGONSERVER"))
Public NUMBER_OF_PROCESSORS As Object = CStr(Environment.GetEnvironmentVariable("NUMBER_OF_PROCESSORS"))
Public OS As Object = CStr(Environment.GetEnvironmentVariable("OS"))
Public PATH As Object = CStr(Environment.GetEnvironmentVariable("PATH"))
Public PATHEXT As Object = CStr(Environment.GetEnvironmentVariable("PATHEXT"))
Public PROCESSOR_ARCHITECTURE As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE"))
Public PROCESSOR_IDENTIFIER As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_IDENTIFIER"))
Public PROCESSOR_LEVEL As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_LEVEL"))
Public PROCESSOR_REVISION As Object = CStr(Environment.GetEnvironmentVariable("PROCESSOR_REVISION"))
Public ProgramData As Object = CStr(Environment.GetEnvironmentVariable("ProgramData"))
Public ProgramFiles As Object = CStr(Environment.GetEnvironmentVariable("ProgramFiles"))
Public [PUBLIC] As Object = CStr(Environment.GetEnvironmentVariable("PUBLIC"))
Public SESSIONNAME As Object = CStr(Environment.GetEnvironmentVariable("SESSIONNAME"))
Public SystemDrive As Object = CStr(Environment.GetEnvironmentVariable("SystemDrive"))
Public SystemRoot As Object = CStr(Environment.GetEnvironmentVariable("SystemRoot"))
Public TEMP As Object = CStr(Environment.GetEnvironmentVariable("TEMP"))
Public TMP As Object = CStr(Environment.GetEnvironmentVariable("TMP"))
Public USERDOMAIN As Object = CStr(Environment.GetEnvironmentVariable("USERDOMAIN"))
Public USERNAME As Object = CStr(Environment.GetEnvironmentVariable("USERNAME"))
Public USERPROFILE As Object = CStr(Environment.GetEnvironmentVariable("USERPROFILES"))
Public windir As Object = CStr(Environment.GetEnvironmentVariable("windir"))
End Module

Public Module VARIABLES_AZERTY_ABCDE_ALPHA_BETA_DELTA_FORMS_SOFTWAREZATOR_VARIABLES
Private _AboutBox1 As AboutBox1_f = New AboutBox1_f
Public Property AboutBox1 As AboutBox1_f
Get
Return _AboutBox1
End Get
Set(ByVal value As AboutBox1_f)
_AboutBox1 = value
End Set
End Property
Private _WindowsForm1 As WindowsForm1_f = New WindowsForm1_f
Public Property WindowsForm1 As WindowsForm1_f
Get
Return _WindowsForm1
End Get
Set(ByVal value As WindowsForm1_f)
_WindowsForm1 = value
End Set
End Property
Private _WindowsForm2 As WindowsForm2_f = New WindowsForm2_f
Public Property WindowsForm2 As WindowsForm2_f
Get
Return _WindowsForm2
End Get
Set(ByVal value As WindowsForm2_f)
_WindowsForm2 = value
End Set
End Property
Private _WindowsForm3 As WindowsForm3_f = New WindowsForm3_f
Public Property WindowsForm3 As WindowsForm3_f
Get
Return _WindowsForm3
End Get
Set(ByVal value As WindowsForm3_f)
_WindowsForm3 = value
End Set
End Property
End Module



Partial Public Class AboutBox1_f

Public Sub OKButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles OKButton.Click
Try
' Fermeture de la fenêtre lorsqu'on clique sur OK
Me.DialogResult = System.Windows.Forms.DialogResult.OK : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub linkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles linkLabel1.LinkClicked
Try
System.Diagnostics.Process.Start("http://saracax.tk/")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class WindowsForm1_f

Public Sub nouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles nouveauToolStripMenuItem.Click
Try
Me.textBox1.Text = ""
nomdudocument = "NewDocumentSEditor"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub ouvrirLaListeDeTousMesFichiersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ouvrirLaListeDeTousMesFichiersToolStripMenuItem.Click
Try
System.Windows.Forms.MessageBox.Show("Pour voir tous vos fichiers créés avec SEditor , allez dans C:\SEditor\Tous mes fichiers", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub quitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles quitterToolStripMenuItem.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub copierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles copierToolStripMenuItem.Click
Try
Me.textBox1.Copy()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub collerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles collerToolStripMenuItem.Click
Try
Me.textBox1.Paste()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub couperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles couperToolStripMenuItem.Click
Try
Me.textBox1.Cut()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub annulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles annulerToolStripMenuItem.Click
Try
Me.textBox1.Undo()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button4.Click
Try
Application.Exit()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
Try
Me.textBox1.Text = ""
nomdudocument = "NewDocumentSEditor"
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub voirMonTexteSurLeWebToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles voirMonTexteSurLeWebToolStripMenuItem.Click
Try
contenu1 = Me.textBox1.Text
If contenu1 = "" Then
System.Windows.Forms.MessageBox.Show("Vous n'avez rien écrit. Nous ne pouvons donc rien afficher !", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
If contenu1 <> "" Then
My.Computer.FileSystem.WriteAllText("C:\SEditor\Tous mes fichiers\test.txt", "" & contenu1 & "", False)
System.Diagnostics.Process.Start("file:///C:\SEditor\Tous mes fichiers\test.txt")
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub exécuterMaPageWebToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles exécuterMaPageWebToolStripMenuItem.Click
Try
contenu1 = Me.textBox1.Text
If contenu1 = "" Then

System.Windows.Forms.MessageBox.Show("Vous n'avez rien écrit. Nous ne pouvons donc rien afficher !", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error).ToString
End If
If contenu1 <> "" Then
My.Computer.FileSystem.WriteAllText("C:\SEditor\Tous mes fichiers\test.php", "" & contenu1 & "", False)
System.Diagnostics.Process.Start("file:///C:\SEditor\Tous mes fichiers\test.php")
End If
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub fichierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles fichierToolStripMenuItem.Click
Try
My.Computer.FileSystem.CreateDirectory("C:\SEditor")
My.Computer.FileSystem.CreateDirectory("C:\SEditor\Tous mes fichiers")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub préférencesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles préférencesToolStripMenuItem.Click
Try
If "Dialog" <> "Dialog" Then WindowsForm2 = New WindowsForm2_f
WindowsForm2.ShowDialog()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub siteOfficielDeSEditorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles siteOfficielDeSEditorToolStripMenuItem.Click
Try
System.Diagnostics.Process.Start("http://saracax.tk/")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub aProposDeSEditorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles aProposDeSEditorToolStripMenuItem.Click
Try
If "Dialog" <> "Dialog" Then AboutBox1 = New AboutBox1_f
AboutBox1.ShowDialog()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub mettreÀJourSEditorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mettreÀJourSEditorToolStripMenuItem.Click
Try
System.Diagnostics.Process.Start("http://saracax-fr.e-monsite.com/pages/produits/seditor-1.html")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub toolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles toolStripMenuItem1.Click
Try
System.Diagnostics.Process.Start("http://forum-saracax.fr.cr/")
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button2.Click
Try
If "Dialog" <> "Dialog" Then WindowsForm3 = New WindowsForm3_f
WindowsForm3.ShowDialog()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class WindowsForm2_f

Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
extensiondufichier = Me.textBox1.Text
If extensiondufichier = "" Then
extensiondufichier = "txt"
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK : Me.Close()
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class

Partial Public Class WindowsForm3_f

Public Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button1.Click
Try
aqui = Me.textBox2.Text
de = Me.textBox1.Text
smtp = Me.textBox3.Text
sujet = Me.textBox4.Text
contenu1 = WindowsForm1.textBox1.Text
VelerSoftware_GeneralPlugin_Envoyer_Email.Envoyer_Email("" & de & "", "" & aqui & "", "" & smtp & "", "" & sujet & "", "" & contenu1 & "", "", "", "")
System.Windows.Forms.MessageBox.Show("Envoyé", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Information).ToString
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Public Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles button3.Click
Try
sujet = Me.textBox4.Text
contenu1 = WindowsForm1.textBox1.Text
Me.label6.Text = "" & sujet & ""
Me.label7.Text = "" & contenu1 & ""
System.Windows.Forms.MessageBox.Show("Ceci n'est qu'une prévisualisation." & System.Environment.NewLine & "Si celle-ci vous convient , cliquez sur " Envoyer " pour envoyer votre message", "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Warning).ToString
Catch err As Exception
System.Windows.Forms.MessageBox.Show(Err.Message, "SEditor", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

End Class


Public Class VelerSoftware_GeneralPlugin_Envoyer_Email
Shared Function Envoyer_Email(ByVal De As String, ByVal A As String, ByVal server As String, ByVal Sujet As String, ByVal Corps As String, ByVal Fichier As String, ByVal Utilisateur As String, ByVal MotDePasse As String) As String
Try
Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage(New System.Net.Mail.MailAddress(De), New System.Net.Mail.MailAddress(A))

message.Subject = Sujet
message.Body = Corps

If My.Computer.FileSystem.FileExists(Fichier) Then
Dim data As System.Net.Mail.Attachment = New System.Net.Mail.Attachment(Fichier)
Dim disposition As System.Net.Mime.ContentDisposition = data.ContentDisposition
disposition.CreationDate = System.IO.File.GetCreationTime(Fichier)
disposition.ModificationDate = System.IO.File.GetLastWriteTime(Fichier)
disposition.ReadDate = System.IO.File.GetLastAccessTime(Fichier)
message.Attachments.Add(data)
End If

Dim client As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient(server)

If Not Utilisateur = "" Then client.Credentials = New System.Net.NetworkCredential(Utilisateur, MotDePasse)

client.Send(message)

Return "Message envoy?"
Catch ex As Exception
Return "Envoi du message ?chou? : " & ex.Message
End Try
End Function
End Class
End Namespace

Namespace My.Resources

'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Public Module Resources

Private resourceMan As Global.System.Resources.ResourceManager

Private resourceCulture As Global.System.Globalization.CultureInfo

'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SEditor.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property

'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Public Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property


End Module
End Namespace
Tout le contenu du fichier n'est pas présent. Raison : Message trop long.



Saracax Production
avatar
Admin
Administrateur
Administrateur

Masculin Nombre de messages : 1875
Age : 25
Localisation : Boulogne Billancourt(92100)(France)
Emploi/loisirs : Etudiant à SUPINFO International University, stagiaire à Microsoft Corporation
Date d'inscription : 24/01/2008

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Admin le Dim 11 Mar 2012 - 17:45

Bonjour,

Dans WindowsForm3, dans la fonction Button3_Click, dans l'action "Afficher un message", vous avez mi un guillemet. Mettez plutôt deux apostrophes. SZ 2011 ne prend malheureusement pas en compte les guillemets et génère donc une erreur.
SZ 2012 le gère par contre Wink



Les 4 règles d'or du forum : Bonjour, Merci, Pas de SMS, Et un petit "[RESOLU]" dans le titre du sujet quand le problème est réglé. Wink

Etienne

Site internet : http://www.velersoftware.com
Twitter : http://twitter.com/VelerSoftware
avatar
Saracax
On s'intègre
On s'intègre

Masculin Nombre de messages : 246
Emploi/loisirs : Informatique
Date d'inscription : 30/08/2010

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Saracax le Dim 11 Mar 2012 - 17:47


Merci beaucoup Very Happy

Cordialement,
Saracax



Saracax Production

Contenu sponsorisé

Re: [RESOLU][SZ 2011] Problème Envoyer un e-mail

Message par Contenu sponsorisé


    La date/heure actuelle est Jeu 17 Aoû 2017 - 6:08