PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Envoyer un mail sans utiliser LOTUS NOTE

https://www.purebasic.fr/french/viewtopic.php?t=8346

Page 1 sur 2

Envoyer un mail sans utiliser LOTUS NOTE

Publié : jeu. 24/juil./2008 11:39
par Kwai chang caine
Bonjour à tous

J'ai posé aussi cette question sur le forum US.

Je voudrais envoyer un mail texte de mon boulot.
Seulement voila, on a que cette saloperie de LOTUS (Et je reste poli) :?
Et cerise sur le ponpon, on a un proxy .....

Je vousdrais savoir si y'a un moyen d'utiliser les fonctions natives de PB pour envoyer ce texte.
Ou peut etre y'a t'il une methode plus simple...

En plus je ne sais meme pas comment recuperer les parametres du proxy et comment ça s'utilise.
Deja qu'en PB j'suis une huitre, mais en reseau, mail pop, smtp ....y'a pas de mots.
Comme coluche ne savait pas ce que c'etait plus blanc que blanc comme couleur, j'ai du mal à définir mon niveau :oops:

En fait, j'suis "in the scatta" jusqu'au cou........de :cry:

Alors voila, comme dab, je cherche un miracle :roll:

Si quelqu'un se sent divin aujourd'hui :lol:

Merci de votre aide.
Bonne journée

Publié : jeu. 24/juil./2008 12:28
par Stefou
Il existe une fonction dans pur pour envoyer des mails maintenant, pourquoi ne te convient t-elle pas ? (le proxy peut être...)

Publié : jeu. 24/juil./2008 12:48
par Kwai chang caine
Oui, j'ai decouvert ça avec le plus grand bonheur :D
C'est ce que j'ai dit dans le POST
Je vousdrais savoir si y'a un moyen d'utiliser les fonctions natives de PB pour envoyer ce texte.
Ou peut etre y'a t'il une methode plus simple...
Mais je ne sais vraiment pas comment parametrer le proxy ???
J'y connais couik en reseau et je sais que pour les mails, c'est encore plus compliqué que le reseau.

Je pense que FRED a fait un super boulot pour l'envois d'un PC traditionnel, il n'a peut etre pas prevu, les proxys, les clients comme LOTUS qui sont de veritables usine a daub :?

Publié : jeu. 24/juil./2008 13:47
par Backup
pour ce que j'en sais un proxy c'est juste une adresse

tu envois ton email normalement, ton system est configuré pour avoir un proxy ?

ben tu t'en fou, c'est transparent pour toi !

toi tu envoie ton email comme d'hab (fonction PB) , ton system devrai dériver l'email par le proxy, mais c'est transparent pour toi ..

il te faut connaitre l'adresse du proxy pour sufer ! parceque ton navigateur
(Mozilla) a une configuration qui peut prendre en compte l'adresse du proxy

mais pour un email...

un proxy c'est en fait une adresse ou tu oblige tout ce qui rentre et tout ce qui sort a passer par elle !


derriere cette adresse de proxy se cache un "espace" ou un ordinateur
qui fait office d'aiguillage

par l'adresse du proxy tout arrive et tout part..

c'est comme si tu avait un ordinateur de branché entre ton ordi et le reseau internet..

d'un point de vue exterieur les serveurs auquel tu te connecte ne voie que l'adresse de cette ordinateur Proxy

l'adresse de ton ordi est caché par ce rempart qu'est le Proxy..

charge a ce proxy de te faire parvenir les paquets de données que tu doit avoir..

et bien sur ton navigateur lui a comme unique interlocuteur ce proxy

lorsque tu demande un page internet tu envoie ta requette a l'adresse de cet ordinateur "Proxy"

qui lui se demerde pour allez chercher ta page sur le net

puis il te renvoie le resultat

voila en gros le fonctionnement d'un proxy


comme je le disais a part pour le surf , je pense que pour un email,
nul besoin de s'occuper du proxy
puisque ton system est deja configuré pour fonctionner avec ...



a moins que je me trompa sur cette question precise :)


voici un code qui peut envoyer un email et un attachement si tu veux
bien sur il faut changer l'email !! j'ai pas envie de recevoir tout tes tests :lol:

Code : Tout sélectionner

; www.purearea.net (Sourcecode collection by cnesm)
; Author: PB (updated for PB 4.00 by Andre)
; Date: 22. November 2003
; OS: Windows
; Demo: No

;Modified code originally posted by Paul IIRC  :)

;USAGE:
;PBSendMail(
;                        RecipientEmailAddress as String
;                        SenderEmailAddress as String
;                        MailServerHost as String
;                        Subject as String
;                        Message as String
;                        AttachmentIncluded as Byte (Flag: 0/1)
;                     )

;NOTES:
;When the 'AttachmentIncluded' flag is set to '1', the mail procedure loops through a linked list
;called 'Attachments()' then encodes or processes the attachments. So to send attachments
;you must have a linked list called 'Attachments()'.

;===============================================
;-GLOBAL FLAGS / VARIABLES / STRUCTURES / ARRAYS
;===============================================

Global ConnectionID.l
Global MailResponse.s

Declare PBSendMail(RecipientEmailAddress.s, SenderEmailAddress.s, MailServerHost.s, subject.s, message.s, AttachmentIncluded.b)
Declare.s MailResponse()
Declare SendMailData(msg.s)
Declare.s GetMIMEType(Extension.s)

;Example linked list
Global NewList Attachments.s()
InsertElement(Attachments())
;Attachments() = "C:\Documents And Settings\User\Desktop\Image.jpg"
;InsertElement(Attachments())
;Attachments() = "C:\Documents And Settings\User\Desktop\Archive.zip"
;InsertElement(Attachments())
;Attachments() = "C:\Documents And Settings\User\Desktop\ObscureText.fff"


;Testing:
PBSendMail(from_adresse$, to_adresse$, smtp-serv$, "hello test", "rien ne sert de courrir , il faut partir a point", 0)

MessageRequester("ok","envoyé",#PB_MessageRequester_Ok)
End



;===============================================
;-PROCEDURES
;===============================================

;Check to see if the file is binary
Procedure IsBinary(File.s)
      If ReadFile(0, File)
            While Loc(0) <> Lof(0)
                  CurrentByte.b = ReadByte(0)
                  If CurrentByte <= 9 Or CurrentByte = 127
                        CloseFile(0)
                        ProcedureReturn 1
                  EndIf
                  If CurrentByte > 10 And CurrentByte < 13
                        CloseFile(0)
                        ProcedureReturn 1
                  EndIf
                  If CurrentByte > 13 And CurrentByte < 32
                        CloseFile(0)
                        ProcedureReturn 1
                  EndIf
            Wend
      EndIf
EndProcedure

;Find the MIME type for a given file extension
Procedure.s GetMIMEType(Extension.s)
      Extension = "." + Extension
      hKey.l = 0
      KeyValue.s = Space(255)
      DataSize.l = 255
      If RegOpenKeyEx_(#HKEY_CLASSES_ROOT, Extension, 0, #KEY_READ, @hKey)
            KeyValue = "application/octet-stream"
      Else
            If RegQueryValueEx_(hKey, "Content Type", 0, 0, @KeyValue, @DataSize)
                  KeyValue = "application/octet-stream"
            Else
                  KeyValue = Left(KeyValue, DataSize-1)
            EndIf
            RegCloseKey_(hKey)
      EndIf
      ProcedureReturn KeyValue
EndProcedure

;Send a piece of mail data
Procedure SendMailData(msg.s)
      SendNetworkData(ConnectionID, @msg, Len(msg))
EndProcedure




;Check the server responses
Procedure.s MailResponse()
      MailResponse=Space(9999)
      ReceiveNetworkData(ConnectionID,@MailResponse,9999)
      MailResponse=Left(MailResponse,3)
      ProcedureReturn MailResponse
EndProcedure



;Send the mail
Procedure PBSendMail(RecipientEmailAddress.s, SenderEmailAddress.s, MailServerHost.s, subject.s, message.s, AttachmentIncluded.b)
      If InitNetwork()
            ConnectionID = OpenNetworkConnection(MailServerHost, 25)
            If ConnectionID <> 0
                  MailResponse()
                  If MailResponse = "220"
                        Index = FindString(MailServerHost, ".", 1)
                        MailServerDomain.s = Mid(MailServerHost, Index + 1, Len(MailServerHost))
                        SendMailData("HELO "+MailServerDomain+Chr(13)+Chr(10))
                        MailResponse()
                        If MailResponse="250"
                              Sleep_(125)
                              SendMailData("MAIL FROM: <"+SenderEmailAddress+">"+Chr(13)+Chr(10))
                              MailResponse()
                              If MailResponse="250"
                                    SendMailData("RCPT TO: <"+RecipientEmailAddress+">"+Chr(13)+Chr(10))
                                    MailResponse()
                                    If MailResponse="250"
                                          SendMailData("DATA"+Chr(13)+Chr(10))
                                          MailResponse()
                                          If MailResponse="354"
                                                Sleep_(125)
                                                SendMailData("X-Mailer: PBSendMail v1.0" + Chr(13) + Chr(10))
                                                SendMailData("To: " + RecipientEmailAddress + Chr(13) + Chr(10))
                                                SendMailData("From: " + SenderEmailAddress + Chr(13) + Chr(10))
                                                SendMailData("Reply-To:" + SenderEmailAddress + Chr(13) + Chr(10))
                                                SendMailData("Date: " + FormatDate("%dd/%mm/%yyyy @ %hh:%ii:%ss", Date()) + Chr(13) + Chr(10))
                                                SendMailData("Subject: " + subject + Chr(13) + Chr(10))
                                                SendMailData("MIME-Version: 1.0" + Chr(13) + Chr(10))
                                                ;Handle any attachments
                                                If AttachmentIncluded
                                                      Debug "Processing 'multipart/mixed' Email..."
                                                      Boundry.s = "PBSendMailv1.0_Boundry_"+ FormatDate("%dd%mm%yyyy%hh%ii%ss", Date())
                                                      SendMailData("Content-Type: multipart/mixed; boundary=" + Chr(34) + Boundry + Chr(13) + Chr(10) + Chr(34))
                                                      SendMailData(Chr(13) + Chr(10))
                                                      ;Main message
                                                      Debug "Processing Messsage..."
                                                      SendMailData("--" + Boundry + Chr(13) + Chr(10)) ; Boundry
                                                      SendMailData("Content-Type: text/plain; charset=" + Chr(34) + "iso-8859-1" + Chr(34) + Chr(13) + Chr(10))
                                                      SendMailData("Content-Transfer-Encoding: 7bit" + Chr(13) + Chr(10))
                                                      SendMailData(Chr(13) + Chr(10))
                                                      Sleep_(125)
                                                      SendMailData(message + Chr(13) + Chr(10))
                                                      SendMailData(Chr(13) + Chr(10))
                                                      Sleep_(125)
                                                      Debug "Processing Attachments..."
                                                      ResetList(Attachments())
                                                      While(NextElement(Attachments()))
                                                            ;Attachment headers
                                                            SendMailData("--" + Boundry + Chr(13) + Chr(10)) ; Boundry
                                                            SendMailData("Content-Type: " + GetMIMEType(GetExtensionPart(Attachments())) + "; name=" + Chr(34) + GetFilePart(Attachments()) + Chr(34) + Chr(13) + Chr(10))
                                                            If IsBinary(Attachments())
                                                                  SendMailData("Content-Transfer-Encoding: base64" + Chr(13) + Chr(10))
                                                                  SendMailData("Content-Disposition: Attachment; filename=" + Chr(34) + GetFilePart(Attachments()) + Chr(34) + Chr(13) + Chr(10))
                                                                  SendMailData(Chr(13) + Chr(10))
                                                                  Sleep_(125)
                                                                  ;Encode the Attachments using Base64
                                                                  If ReadFile(0, Attachments())
                                                                        InputBufferLength.l = Lof(0)
                                                                        *memin = AllocateMemory(InputBufferLength)
                                                                        If *mem
                                                                              OutputBufferLength.l = InputBufferLength + InputBufferLength/3 + 2
                                                                              If OutputBufferLength < 64 : OutputBufferLength = 64 : EndIf
                                                                              *memout = AllocateMemory(OutputBufferLength)
                                                                              If *memout
                                                                                    ReadData(0, *memin, InputBufferLength)
                                                                                    Base64Encoder(@memin, InputBufferLength, @memout, OutputBufferLength)
                                                                                    SendMailData(PeekS(*memout, OutputBufferLength) + Chr(13) + Chr(10))
                                                                                    Debug GetFilePart(Attachments()) + " (base64) Encoded"
                                                                              Else
                                                                                    Debug "ERROR: Unable to allocate memory for Bank 1 to process " + GetFilePart(Attachments())
                                                                                    ProcedureReturn 0
                                                                              EndIf
                                                                        Else
                                                                              Debug "ERROR: Unable to allocate memory for Bank 0 to process " + GetFilePart(Attachments())
                                                                              ProcedureReturn 0
                                                                        EndIf
                                                                  Else
                                                                        Debug "ERROR: Unable to read file: " + GetFilePart(Attachments())
                                                                        ProcedureReturn 0
                                                                  EndIf
                                                                  CloseFile(0) : FreeMemory(*memin) : FreeMemory(*memout)
                                                            Else
                                                                  SendMailData("Content-Transfer-Encoding: 7bit" + Chr(13) + Chr(10))
                                                                  SendMailData("Content-Disposition: Attachment; filename=" + Chr(34) + GetFilePart(Attachments()) + Chr(34) + Chr(13) + Chr(10))
                                                                  SendMailData(Chr(13) + Chr(10))
                                                                  Sleep_(125)
                                                                  If ReadFile(0, Attachments())
                                                                        InputBufferLength.l = Lof(0)
                                                                        *memin = AllocateMemory(InputBufferLength)
                                                                        If *memin
                                                                              ReadData(0, *memin, InputBufferLength)
                                                                              SendMailData(PeekS(*memin, InputBufferLength) + Chr(13) + Chr(10))
                                                                              Debug GetFilePart(Attachments()) + " (7bit) Processed"
                                                                        Else
                                                                              Debug "ERROR: Unable to allocate memory for Bank 0 to process " + GetFilePart(Attachments())
                                                                              ProcedureReturn 0
                                                                        EndIf
                                                                  Else
                                                                        Debug "ERROR: Unable to read file: " + GetFilePart(Attachments())
                                                                        ProcedureReturn 0
                                                                  EndIf
                                                            EndIf
                                                            
                                                            Sleep_(125)
                                                            SendMailData(Chr(13) + Chr(10))
                                                      Wend
                                                      SendMailData("--" + Boundry + "--" + Chr(13) + Chr(10)) ; End Boundry
                                                Else
                                                      Debug "Processing messsage..."
                                                      SendMailData("Content-Type: text/plain; charset=" + Chr(34) + "iso-8859-1" + Chr(34) + Chr(13) + Chr(10))
                                                      SendMailData("Content-Transfer-Encoding: 7bit" + Chr(13) + Chr(10))
                                                      SendMailData(Chr(13) + Chr(10))
                                                      Sleep_(125)
                                                      SendMailData(message + Chr(13) + Chr(10))
                                                EndIf
                                                Sleep_(125)
                                                SendMailData(Chr(13)+Chr(10))
                                                SendMailData("."+Chr(13)+Chr(10))
                                                MailResponse()
                                                If MailResponse="250"
                                                      Sleep_(125)
                                                      SendMailData("QUIT"+Chr(13)+Chr(10))
                                                      MailResponse()
                                                      Debug "Mail sent successfully."
                                                      ProcedureReturn 1
                                                EndIf
                                          EndIf
                                    EndIf
                              EndIf
                        EndIf
                  EndIf
                  CloseNetworkConnection(ConnectionID)
            EndIf
      EndIf
EndProcedure

Publié : jeu. 24/juil./2008 14:09
par Gillou
Salut,

Dobro, il est vrai qu'un proxy de base est tout à fait transparent et ne sert qu'à re-diriger les paquets.

Mais dans le cas d'une entreprise, le but est un peu différent (proxy est-ce le bon terme KCC?) comme le précise KCC, il utilise client lotus qui se connecte à un serveur lotus interne (via le port 1352) et c'est ce serveur qui envoi le mail, il est donc possible que les admins aient bloqué les autres ports (pop, smtp...)

Donc déjà vérifie si le port email est bien ouvert si c'est le cas, trouve un serveur smtp public, et il n'y aura pas de pbs

Publié : jeu. 24/juil./2008 16:13
par Kwai chang caine
Merci à vous deux pour votre aide.

J'ai peur que GILLOU ai raison.
Ils sont tellement parano dans ma boite qu'ils ont surement bloqué le port.

Le soucis, c'est que je ne connais pas le provider de l'entreprise.
C'est ecris nulle part.

Pas de mamadou, ni free.fr.
Alors comment faire pour remplacer le "smtp.wanadoo.fr" de DOBRO ? :roll:

Publié : jeu. 24/juil./2008 16:21
par Kwai chang caine
J'ai essayé "smtp.NomDeMonEntreprise.fr" ça m'a repondu "Envoyé" et rien dans ma boite mail :cry:

Quand je m'envois un mail à mon boulot, il est sous cette forme : Prenom.Nom@NomDeMonEntreprise.fr

Publié : jeu. 24/juil./2008 16:38
par Gillou
Tu récup l'ip de sorti, de ton entreprise (via par ex monip.org)

Si la aucune info
Tu prends le premier champ de l'ip et tu regardes, tu devrais pouvoir trouver la base de données correspondante, normalement RIPE pour l'europe
http://www.iana.org/assignments/ipv4-address-space/

Ensuite si c'est bien ripe, tu vas sur le whois et tu tapes les 2 voir 3 premiers champ de ton ip entreprise : xxx.xxx

dans la recherche :
http://www.db.ripe.net/whois

Normalement tu devrais trouver le nom du FAI responsable de l'allocation IP

Après à toi de rechercher en fonction du fai, leur smtp

Publié : jeu. 24/juil./2008 16:59
par Ar-S
Ne pas confondre un proxy et un ordi qui filtre...
Lorsque je bossais dans l'éducation nationale (en tant qu'assistant aux nouvelles technologies) on utilisait un SLIS (Serveurs Linux pour l'internet Scolaire) qui faisait office de proxy mais surtout de pare feu ou certains ports et/ou adresses étaient bloquées.
Si c'est la même chose dans ta boite ce sera au petit bonheur la chance.

Publié : jeu. 24/juil./2008 17:05
par Gillou
Exact Ar-s, et puis si comme tu le dis ils sont paranos. Dans mon ancienne boiîte, on avait même était jusqu'à filtrer les paquets, pour empêcher certains types d'applications un peu trop répandus qui passés par le port 80... :lol:

Publié : jeu. 24/juil./2008 17:18
par Kwai chang caine
J'ai fait comme t'as dit et j'obtiens 192.XXX.XXX.XXX ??

Publié : jeu. 24/juil./2008 17:42
par Gillou
Donc à priori 192... -> whois.arin.net

Mais bon tu devrais commencer par tester les ports ouverts

Publié : jeu. 24/juil./2008 17:46
par Kwai chang caine
Eh ben....c'est pas simple,j'y comprend de moins en moins... :cry:

Bon, il faut que "je part du boulot", "y faut bien rentrer dans sa maison" :D
J'essaierais la semaine prochaine

Si a l'occasion tu passe par la ......et que tu vois de la lumiere :wink:
Merci encore de ton aide ainsi qu'a tous les autres

Bonne soirée

Re: Envoyer un mail sans utiliser LOTUS NOTE

Publié : ven. 25/juil./2008 9:23
par Thyphoon
Kwai chang caine a écrit : Je voudrais envoyer un mail texte de mon boulot.
Seulement voila, on a que cette saloperie de LOTUS (Et je reste poli) :?
Et cerise sur le ponpon, on a un proxy .....
Lolllll exelent je croirais m'entendre ...

Mais moi au boulot je me suis installer thunderbird. Et pour le smtp j'utilise le le smtp de lotus. Ca marche tres bien même derrière un proxy...
le smtp tu met celui que tu as du mettre dans lotus lorsque tu l'as configuré le serveur domino. En plus si jamais l'IMAP est activé sur lotus. Tu n'a même plus besoin d'utiliser lotus pour lire et envoyer des emails.. (reste le carnet d'adresse, ou si tu as un serveur ldap tu peux être sauvé)

voilà ;oP

Publié : sam. 26/juil./2008 19:29
par Kwai chang caine
le smtp tu met celui que tu as du mettre dans lotus lorsque tu l'as configuré le serveur domino
Ouuuuaaauah, on va pouvoir monter une association des victimes de LOTUS. :D
On est deja une dizaine de membres :lol:
C'est LOTUS NOTES et pour la note, moi j'lui donne zéro pointé :?

Le bleme, c'est que j'y comprend tellement rien a ce "logiciel", car on pourrait plutot créer une nouvelle categorie "Illogiciel" tellement on pourrait dire qu'il a été créé pour faire croire à un caid de l'informatique qu'il est du niveau de KCC.
Dire qu'il n'est pas intuitif est un doux euphemisme :?
Seul SAP sait faire des logiciels aussi merdique et anticonvivial :twisted:

Bref tout ça pour dire que le pauvre KCC tel que vous le connaissez, il a meme pas installé le "Rubik's cube" enfin je veux dire le "DOMINO" :D

Il a appellé le service hotline perso de l'entreprise et c'est eux qui se sont chargé de l'installer :oops:

Je sais que j'ai un fichier ID personnel, mais a part ça si tu sais ou on peux lire les infos, ça me serait du plus grand secour pour lundi. :wink:
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru