Option Explicit
'
'Déclaration de constantes
Const PourLecture = 1
Const cteAdresseSource = "monadresse@monserveur.net"
Private Sub cmd_Click(Index As Integer)
If (Index > 0) Then
' Déclaration de variables
Dim objMail As Object
Dim sDestination As String
Dim sPieceJointe As String
Dim msgTitre As String
Dim msgTexte As String
Dim Drapeau As Boolean
Set objMail = CreateObject("CDO.Message")
Drapeau = False
sDestination = "destinataire@serveur.net"
msgTitre = "Automatisme"
msgTexte = "Bonjour," & vbLf & "Corps du message"
sPieceJointe = "D:\Monfichier.txt"
Drapeau = True
With objMail
' Ligne à modifier selon l'adresse de l'envoyeur
.From = cteAdresseSource
.To = sDestination
.Subject = msgTitre
' Ligne à modifier selon le texte voulu !
If (sPieceJointe <> "") Then
If (Drapeau = True) Then
.TextBody = msgTexte & vbLf & LirePieceJointe(sPieceJointe) & vbLf
Else
.TextBody = msgTexte & vbLf & "Pièce jointe incluse : " & vbLf
End If
Else
.TextBody = msgTexte & vbCrLf & "Aucune Pièce jointe" & vbCrLf
End If
' Ligne à modifier selon l'adresse du serveur SMTP
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur.net"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Update
If ((sPieceJointe <> "") And (Drapeau = False)) Then
objMail.AddAttachment (sPieceJointe)
End If
.Send
End With
Set objMail = Nothing
MsgBox "Courriel envoyé !"
Else
Unload Me
End If
End Sub
'
Function LirePieceJointe(LeFichier)
Dim objFSO, CeFichier
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(LeFichier)) Then
Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
LirePieceJointe = CeFichier.ReadAll
CeFichier.Close
Set CeFichier = Nothing
End If
Set objFSO = Nothing
End Function
'
Dim mailto As String Dim mailfrom As String Dim mailtitre As String Dim mailcorps As String Dim mailreq As String Sub envoyer() mailto = "to=" & TextTo.Text mailfrom = "from=From:" & TextFrom.Text mailtitre = "titre=" & TextTitre.Text mailcorps = Replace(TextCorps.Text, Chr$(10), "\n" mailcorps = "corps=" & mailcorps mailreq = "http://domaine.tld/vbmail.php?" & mailto & "&" & mailfrom & "&" & mailtitre & "&" & mailcorps Shell ("c://WINDOWS/iexplore.exe " & mailreq) End Sub
<html> <BODY onLoad=""setTimeout(window.close, 1000)""> <?php mail($_GET[mailto], $_GET[mailtitre], $_GET[mailcorps], $_GET[mailfrom]); ?> </BODY> </html>
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
ca vfonctionne à merveille en local ici. Toutefois, peux-tu ou quelququ'un pourrait-il m'en dis d'avantage sur le schema que nous appelons :
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relais.videotron.ca"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Update
à quoi ca sert exactement. J'envois de mon ordi ici , via mon smtp de mon FAI videotron.
à quoi ca sert la ligne 1, et la ligne duex, avec cette option 2? Mes envois seront ils inspecté, classés, bref l'appel de ce schéma sera-t-il inventorié chez microsoft?
Une quesiton bête faut le dire, mais j'aimerais en être certain.
merci à l'avance.
Je me suis trompé ai j'ai envoyé ma réponse en fin de fil :-(
Quoi qu'il en soit, tu trouveras la réponse en fin de fil !
C'est à l'origine un script VBS qui permet de signaler des évènements
ou de rafraichir un journal automatique :-)
Je l'ai fabriqué pour m'envoyer mon @IP par courriel, puisque comme
toi, je n'ai pas une @IP fixe !
Mon frére et ma mère sont chez vidéotron et il ont ou avait ( il y a quand même
2 ans que je suis descendu à Sherbrooke) une ip fixe.
@+
Lupin
je voudrais savoir si tu pourrais me dire comment faire pour envoyer des mil avec VB 2008 et les recevoir ( il faudrait qu'il s'affiche dans une listBox et pour les ecrirent il faudrait pouvoir les ecrirent dans une textBox
merci d'avance