BLAT-aufruf

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

BLAT-aufruf

Beitrag von Rolf Ramacher »

Hallo zusammen

Hi Jan

irgendetwas mache ich noch falsch

hier der Punkt wo ich die Funktion aufrufe - war erstmal zum testen

Code: Alles auswählen

	email_senden("import beendet","test","r.ramacher@sprinter-software.de","rolf.ramacher@freenet.de")

Code: Alles auswählen

#include "dll.ch"

Function email_senden(cBody,csubject,cTo,cFrom)
LOCAL cBlatDLLName := "BLAT.DLL", cParameter:="", nRueck:=0

cParameter := " -body " + Chr(34) + cbody + Chr(34)+ ;
" -subject " + Chr(34) + cSubject + Chr(34) + ;
" -to " + cTo + ;
" -server " + "smtp.server" + " -f " + cFrom


nBlatDll := dllLoad(cBlatDLLName)

IF nBlatDll > 0
nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil
die blat.dll und die blat.exe liegt im Verzeichnis windows\system32 und im lokalen Verzeichnis. bezieht sicht smtp.server auf den Absender? steht "-f" für den Absender ?? kommt zum Schluss der Absender ??
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Jan
Marvin
Marvin
Beiträge: 14641
Registriert: Fr, 23. Sep 2005 18:23
Wohnort: 49328 Melle
Hat sich bedankt: 21 Mal
Danksagung erhalten: 87 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Jan »

Rolf,

lies doch bitte einmal die Doku zu Blat durch.

Und ersetze bitte "smtp.server" durch die Einstellungen der absendenen Mailadresse. Natürlich ist das der SMTP-Server des Absenders, des Empfängers ist ja etwas schwierig umzusetzen.

Jan
Mitglied der XUG Osnabrück
Mitglied der XUG Berlin/Brandenburg
Mitglied des Deutschsprachige Xbase-Entwickler e. V.
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

Hallo zusammen

ich habe nochmal eine Frage

Code: Alles auswählen

#include "dll.ch"

Function email_senden(cBody,csubject,cTo,cFrom,cPw,cSsl,cName,cServer)
LOCAL cBlatDLLName := "BLAT.DLL", cParameter:="", nRueck:=0

cParameter := " -body " + Chr(34) + cbody + Chr(34)+ ;
" -subject " + Chr(34) + cSubject + Chr(34) + ;
" -to " + cTo + ;
" -server " + cServer + " -u " +cName + " -f " + cFrom + " -pw "+cPw+cSsl



nBlatDll := dllLoad(cBlatDLLName)

IF nBlatDll > 0
	nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil
es klappt alles soweit hervorragend. mit dem versand über gmx. Aber bei Versand über freenet. passiert nichts - es kommen hier alle Werte richtig an.
Hat jemand eine Idee?
die variable beinhaltet den Anmeldenamen- pw passwort, cSSL die SSl-Schüsselungsnummer des postausgangsservers
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Jan
Marvin
Marvin
Beiträge: 14641
Registriert: Fr, 23. Sep 2005 18:23
Wohnort: 49328 Melle
Hat sich bedankt: 21 Mal
Danksagung erhalten: 87 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Jan »

Rolf,

blat kann kein SSL.

Und wenn Du die SSLwasAuchImmerNummer direkt an das Benutzer-Kennwort anhängst, dann kann blat das nicht trennen, und hängt diese Numerm direkt an das Kennwort an. Das damit natürlich falsch ist.

Jan
Mitglied der XUG Osnabrück
Mitglied der XUG Berlin/Brandenburg
Mitglied des Deutschsprachige Xbase-Entwickler e. V.
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

Jan,

da bist du falsch informiert - GMX hat auch SSL und damit klappt es.
Ich habe ja 2 email-Adressen einmal freent und einmal gmx - und bei GMX geht direkt raus
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Werner_Bayern
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2120
Registriert: Sa, 30. Jan 2010 22:58
Wohnort: Niederbayern
Hat sich bedankt: 29 Mal
Danksagung erhalten: 70 Mal

Re: BLAT-aufruf

Beitrag von Werner_Bayern »

Servus Rolf,

entscheidend ist, was Du bei cServer und cSll übergibst. Schreib das doch mal.
es grüßt

Werner

<when the music is over, turn off the lights!>
Benutzeravatar
Tom
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 9345
Registriert: Do, 22. Sep 2005 23:11
Wohnort: Berlin
Hat sich bedankt: 100 Mal
Danksagung erhalten: 359 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Tom »

Freenet verwendet einen anderen Mailserver als GMX - und natürlich auch andere Zugangsdaten, lieber Rolf. Du kannst keine Freenet-Mails über GMX-Server verschicken. :wink:
Herzlich,
Tom
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

@Tom
da habe ich mich vielleicht falsch ausgedrückt, oder du hast es anders verstanden. Ich habe 2 verschiedene email-Adressen GMX + freenet.

Natürlich haben diese beiden verschiedene Namen, passworte ssl-Nr. usw.

so sieht der aufruf der Funtkion auf.

Code: Alles auswählen

			email_senden("Reklamation importiert",cArt+space(2)+cUser+space(2)+cReknr,cEmail,cAbsEmail,cPw,cSsl,cEmailUser,cServer)

hier die Functon email_senden

Code: Alles auswählen

#include "dll.ch"

Function email_senden(cBody,csubject,cTo,cFrom,cPw,cSsl,cName,cServer)
LOCAL cBlatDLLName := "BLAT.DLL", cParameter:="", nRueck:=0

cParameter := " -body " + Chr(34) + cbody + Chr(34)+ ;
" -subject " + Chr(34) + cSubject + Chr(34) + ;
" -to " + cTo + ;
" -server " + cServer + " -u " +cName + " -f " + cFrom + " -pw "+cPw+cSsl



nBlatDll := dllLoad(cBlatDLLName)

IF nBlatDll > 0
	nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil
cSSl sieht so aus " - port "

so werden dann die entsprechenden Werte befüllt

Code: Alles auswählen

	cSsl+=alltrim(Sys->Ssl)
	cEmailUser:=alltrim(Sys->User)
	cServer:=alltrim(Sys->Server)
	cAbsEmail:=alltrim(Sys->Email)
bei GMX cssl dann so aus " -port 587 " bei freenet dann so " -port 465"

auch alle anderen werte bei freenet stimmen. GMX läuft alles richtig. bei freenet passiert nichts. die Frage ist warum ?
gibt es bei freenet etwas Besonderes zu beachten?
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Scarmo
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 188
Registriert: Di, 24. Jul 2007 9:17

Re: BLAT-aufruf

Beitrag von Scarmo »

Hallo Rolf

Meiner Meinung nach unterstützt BLAT kein SSL von sich aus... Oder verwendest Du STUNNEL, um eine SSL-Verbindung herzustellen?

Gruss
Marco
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

Hi Marco

jetzt wird es noch verrückter. ich habe jetzt cSSl mal rausgenommen . GMX funktioniert - freenet immer noch nicht. dann werde ich mich wohl mal nach einer anderen Methode umschauen.

Hat denn jemand das mit SSL bereits gemacht ?
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Wolfgang Ciriack »

Hallo Rolf,
versuche doch auch bei freenet mal den Port 587.
STARTTLS:
SMTP (Versand): 587
IMAP (Empfang): 143
POP3 (Empfang): 110
SSL/TLS
SMTP (Versand): 587
IMAP (Empfang): 993
POP3 (Empfang): 995
SMTPS
SMTPS (Versand): 465
IMAP (Empfang): 993
POP3 (Empfang): 995
Viele Grüße
Wolfgang
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

Wolfgang also auch mit 587 passiert bei freenet nichts.

ich bin natürlich jetzt auch am überlegen welche Richtung ich hier einschlage. Ich muss auch emails lesen und die Anhänge in sep. Verzeichnisse speichern. Ein Freund von mir hat den lesen-prototyp fertig . allerdings noch bevor die SSL-Geschichte kam. auch mit der blat.dll - wenn das generell ein Problem darstellt. müssen wir einen anderen Weg gehen. oder liegt es hier dabei tatsächlich an freenet.

Hat jemand hierzu Erfahrung bereits gesammelt?
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2932
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Hat sich bedankt: 13 Mal
Danksagung erhalten: 34 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Wolfgang Ciriack »

Marshallsoft: See4XB.
Viele Grüße
Wolfgang
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

Marco

wie funktioniert das denn mit STUNNEL? Hast du ein beispiel ?
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
mini990
1000 working lines a day
1000 working lines a day
Beiträge: 592
Registriert: Sa, 28. Jan 2006 9:44
Wohnort: Berg-Richtheim bei Neumarkt i.d.Opf.
Danksagung erhalten: 1 Mal

Re: BLAT-aufruf

Beitrag von mini990 »

Hallo Rolf,
sieh Dir mal diesen Thread an.
Da hab ich was zu STunnel und Blat geschrieben...
http://xbaseforum.de/viewtopic.php?f=30&t=4862

Gruß Stefan
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: BLAT-aufruf

Beitrag von Rolf Ramacher »

ja danke Stefan,

werde mich mal damit auseinandersetzen. aber wie übergebe ich das an die dll

so sieht mein code bisher aus.

Code: Alles auswählen

Function email_senden(cBody,csubject,cTo,cFrom,cPw,cSsl,cName,cServer)
LOCAL cBlatDLLName := "BLAT.DLL", cParameter:="", nRueck:=0

cParameter := " -body " + Chr(34) + cbody + Chr(34)+ ;
" -subject " + Chr(34) + cSubject + Chr(34) + ;
" -to " + cTo + ;
" -server " + cServer + " -u " +cName + " -f " + cFrom + " -pw "+cPw+cSsl



nBlatDll := dllLoad(cBlatDLLName)

IF nBlatDll > 0
	nRueck := DllCall(nBlatDll, DLL_STDCALL , "Send", cParameter) // *** Send muss genauso geschrieben werden.
ENDIF
Return Nil
cSSl würde ja dann wegfallen.

kann man mit STUNNEL auch emails lesen und Dateianhänge in einem verzeichnis abspeichern. das muss ich nämlich dann auch
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Antworten