VMAIL X - CLIENT SMTP POUR L'ENVOI DE MAIL + EXE/ACTIVEX !
cs_seboss
Messages postés
39
Date d'inscription
dimanche 13 janvier 2002
Statut
Membre
Dernière intervention
26 avril 2006
-
25 mai 2002 à 13:32
anice2 Messages postés 6 Date d'inscription mercredi 7 mai 2003 Statut Membre Dernière intervention 9 février 2008 - 18 avril 2007 à 12:17
anice2 Messages postés 6 Date d'inscription mercredi 7 mai 2003 Statut Membre Dernière intervention 9 février 2008 - 18 avril 2007 à 12:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3323-vmail-x-client-smtp-pour-l-envoi-de-mail-exe-activex
https://codes-sources.commentcamarche.net/source/3323-vmail-x-client-smtp-pour-l-envoi-de-mail-exe-activex
18 avril 2007 à 12:17
Merci d'avance et bon courage
15 juil. 2005 à 07:55
Bonne prog
JLN
12 janv. 2005 à 09:37
1 - le principe de transparence (cas d'une ligne avec uniquement un point) ex :
debut message
.
fin message
dans ce cas la fin du message n'est pas transmise. Il faut que tu double le point (toute séquence <CRLF>.<CRLF> doit être remplacée par <CRLF>..<CRLF>. Le serveur SMTP interprête pour supprimer le second point.
2 - La gestion du destinataire en copie cachée n'est pas complétement implémentée. Comme pour "to :" et "cc :" il faut envoyer "bcc :" dans la section data
6 oct. 2004 à 10:03
Mais, je n'arrive pas à joindre des fichiers
Déjà, il y a une erreur dans le script d'utilisation du composant :
.AttacherFichier.Add , "C:\autoexec.bat", "Fichier
Le premier paramètre n'est pas optionnel.
Lorsque je joins un fichier au mail, il est envoyé sans le fichier...
Pouvez vous m'aider en me donnant un exemple d'un mail avec fichier joint?
Merci
9 déc. 2003 à 15:27
J'ai juste un petite question quand même:
en utilisant un serveur "Microsoft Exchange Server" j'arrive à envoyer des mails en interne en mettant le nom de mon serveur, mais comment faire pour envoyer des mails en externe???
Merci ++
19 oct. 2003 à 12:43
19 juil. 2002 à 14:28
Si cela t'interese, j'ai modifie 2 choses.
1) un coup de pop quand je me fais jeter par 500(lock by pop)
2) le system d'encodage
Private Const base64_alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
Public Function b64EncodeFile(strFilePath As String) As String
On Error GoTo ErrEdit
Dim lFileSize
Dim nbligne
Dim temp As String
Dim bStr As String * 1
Dim rStr As String * 3
Dim inFile As Long
Dim nPos As Long
Dim tPos As Long
Dim pour As String
b64EncodeFile = ""
inFile = FreeFile
rStr = ""
bStr = 0
nPos = 0
tPos = 0
If Dir(strFilePath) = "" Then GoTo ErrEdit
lFileSize = FileLen(strFilePath)
nbligne = Int(lFileSize / 3)
Open strFilePath For Binary Access Read As inFile
Do While nPos < nbligne
tPos = tPos + 1
nPos = nPos + 1
DoEvents
Get #inFile, , rStr
temp = temp & base64_enc_buffer(rStr)
If Len(temp) = 76 Then
b64EncodeFile = b64EncodeFile & temp & vbCrLf
temp = ""
End If
rStr = ""
Loop
If Len(temp) > 0 Then
b64EncodeFile = b64EncodeFile & temp
End If
If lFileSize - (nbligne * 3) > 0 Then
temp = ""
For tPos = 1 To lFileSize - (nbligne * 3)
Get #inFile, , bStr
temp = temp & bStr
Next
b64EncodeFile = b64EncodeFile & base64_enc_buffer(temp) & vbCrLf
End If
Close inFile
b64EncodeFile = b64EncodeFile & vbCrLf
Exit Function
ErrEdit:
b64EncodeFile = ""
Exit Function
End Function
Private Function base64_enc_buffer(str As String) As String
Dim r1 As String
Dim r2 As String
Dim r3 As String
Dim r4 As String
Select Case Len(str)
Case 0
r1 = ""
r2 = ""
r3 = ""
r4 = ""
Case 1
r1 = base64(Int((Asc(Mid(str, 1, 1))) / 4))
r2 = base64((Asc(Mid(str, 1, 1)) Mod 4) * 16)
r3 = base64(64)
r4 = base64(64)
Case 2
r1 = base64(Int((Asc(Mid(str, 1, 1))) / 4))
r2 = base64((Int((Asc(Mid(str, 2, 1))) / 16)) + ((Asc(Mid(str, 1, 1)) Mod 4) * 16))
r3 = base64((Asc(Mid(str, 2, 1)) Mod 16) * 4)
r4 = base64(64)
Case 3
r1 = base64(Int((Asc(Mid(str, 1, 1))) / 4))
r2 = base64((Int((Asc(Mid(str, 2, 1))) / 16)) + ((Asc(Mid(str, 1, 1)) Mod 4) * 16))
r3 = base64((Int((Asc(Mid(str, 3, 1))) / 64)) + ((Asc(Mid(str, 2, 1)) Mod 16) * 4))
r4 = base64(Asc(Mid(str, 3, 1)) Mod 64)
End Select
base64_enc_buffer = r1 & r2 & r3 & r4
End Function
Private Function base64(num As Byte) As String
If (num < 65 And num > -1) Then
base64 = Mid(base64_alphabet, num + 1, 1)
Else
base64 = ""
End If
End Function
18 juil. 2002 à 19:52
- Très belle présentation
- Des méthodes sures (vb5 d'accord)
Pour le faire fonctionner, il faut juste aller dans le fichier INI et modifier le serveur par le vôtre (pop.free.fr par exemple) au lieu de l'adresse IP bizarre (10.1.0.1) qu'il met.
Si tu allais farfouinner dans la base de registre, tu trouverais tout ce genre de renseignements qui ne s'initialisent pas ici.
Bravo, bravo, ça me plais beaucoup (10)
25 mai 2002 à 13:32