Mail Programm aufrufen und Anhang

Hi

Wie kann ich mein Mail Programm starten, das es Betreff und Text und Datei Anhang schon eingetragen hat.?

[Eisbär]

Zitat von Unregistriert

Hi

Wie kann ich mein Mail Programm starten, das es Betreff und Text und Datei Anhang schon eingetragen hat.?

Willst du denn gar nichts mehr machen?

[Bangkok]

Ich weiß zwar nicht welche Profanversion und welches Windows du hast. Du kannst aber mal das testen. Geht auf jeden Fall mit XProfan 11.2 und Windows XP

Def MAPISendMail(5) !"MAPI32.DLL","MAPISendMail"

Declare MapiMessage#,subject#,text#,MapiRecipDesc#,MapiFileDesc#,recip#,file#
Dim MapiMessage#,48
Dim subject#,32
Dim text#,128
Dim MapiFileDesc#,24
Dim recip#,32
Dim file#,32
Dim MapiRecipDesc#,24

' Strukturen initialisieren

Clear MapiMessage#,48
Clear MapiRecipDesc#,24
Clear MapiFileDesc#,24

' Empfänger:

String recip#,0="freund@irgendwas.com"
Long MapiRecipDesc#,4=1
Long MapiRecipDesc#,8=recip#

' Dateianhang:

String file#,0="c:\bilder.zip"
Long MapiFileDesc#,12=file#

' Subject und Text:

String subject#,0="Testmail"
String text#,0="Hallo wie gehts, im Anhang sind die Bilder" '127 Zeichen

'Struktur ausfüllen

Long MapiMessage#,4=subject#
Long MapiMessage#,8=text#
Long MapiMessage#,32=1
Long MapiMessage#,36=MapiRecipDesc#
Long MapiMessage#,40=1
Long MapiMessage#,44=MapiFileDesc#

' starten

Cls
MAPISendMail(0,0,MapiMessage#,11,0)

' Aufräumen:

Dispose MapiMessage#
Dispose subject#
Dispose text#
Dispose MapiRecipDesc#
Dispose recip#
Dispose MapiFileDesc#
Dispose file#

[Frabbing]

Hab ich gestern selber benötigt:

' (w) Frank Abbing
'
Declare mapimessage#,mapifiledesc#,treff$,body$,attach$,last$
Dim mapimessage#,48
Dim mapifiledesc#,24
Clear mapimessage#
Clear mapifiledesc#
last$="c:/CONFIG.SYS"  'Datei
attach$=last$+Chr$(0)+Space$(280)
Long mapifiledesc#,8=-1,Addr(attach$)
treff$="Überschrift" 
body$="Hier\nsteht\nein\nText"
Long mapimessage#,4=Addr(treff$),Addr(body$)
Long mapimessage#,40=1,mapifiledesc#
External("mapi32.dll", "MAPISendMail",0,0,mapimessage#,$8,0)
Dispose mapimessage#,mapifiledesc#

P.S. Dieter, fast gleiche Lösung
Hab gestern gelesen, dass manche Mailprogramme den Namen von angehängten Dateien ändern. Darum sollte der dort übergebene String grösser dimensioniert werden.

[horsthorn]

@Dieter
@Frank

Sind ja wünderschöne Code-Teile, aaaaaber...

...ist das noch XProfan

[Bangkok]

@Horst,

mir ist keine reine XProfanmöglichkeit bekannt. Man kann zwar mit reinem XProfan eine Mail mit Anhang versenden ohne Mailprogramm aber um das Mailprogramm mit diesen Parametern zu starten ist mir nur die API geläufig. Die API's sind ja auch da um genutzt zu werden. Ohne API's gäbe es wahrscheinlich auch kein XProfan mit den vielen Möglichkeiten.

[horsthorn]

@Dieter
Das war ja auch nur eine rein rethorische Frage !
Wenn jemand, der noch 'dümmer' wie ich auf dem API-Sektor ist (soll es geben )
den Code liest, ist der Text im ersten Moment für ihn ein Buch mit 7 Siegeln
Zumal so einiges nicht immer mit allen Profan-Versionen kompatibel ist.
Damit will ich sagen: Der Code ist natürlich schon in meinem "Sammelbehälter",
aber ob ich das jemals kapiere, steht auf einem anderen Blatt

[Frabbing]

Horst, das sind eigentlich nur 2-3 Strukturen, die für die API teilweise gefüllt werden müssen. Der Einfachheit halber hab ich nur Bereiche verwendet, macht die Sache dann natürlich nicht übersichtlicher.

Beide Codes klappen.

[Sato]

Hallo
Bei mir funktioniert Dieter code nicht, es erscheint immer die Fehlermeldungen das die Variablenbezeichner fehlerhaft in alle drei
Zeilen
Clear MapiMessage#,48
Clear MapiRecipDesc#,24
Clear MapiFileDesc#,24

Wenn ich die ausklammere, wird kompiliert, aber es passiert nichts?

Gruss
Sato

[AHT]

Zitat von Sato

Hallo
Bei mir funktioniert Dieter code nicht,...

Ungetestet, da zur Zeit kein Mailaccount vorrätig:

Def MAPISendMail(5) !"MAPI32.DLL","MAPISendMail"
Declare MapiMessage#,subject#,text#,MapiRecipDesc#,MapiFileDesc#,recip#,file#
Dim MapiMessage#,48
Dim subject#,32
Dim text#,128
Dim MapiFileDesc#,24
Dim recip#,32
Dim file#,32
Dim MapiRecipDesc#,24
' Strukturen initialisieren
Clear MapiMessage#
Clear MapiRecipDesc#
Clear MapiFileDesc#
' Empfänger:
String recip#,0="freund@irgendwas.com"
Long MapiRecipDesc#,4=1
Long MapiRecipDesc#,8=recip#
' Dateianhang:
String file#,0="c:\bilder.zip"
Long MapiFileDesc#,12=file#
' Subject und Text:
String subject#,0="Testmail"
String text#,0="Hallo wie gehts, im Anhang sind die Bilder" '127 Zeichen
'Struktur ausfüllen
Long MapiMessage#,4=subject#
Long MapiMessage#,8=text#
Long MapiMessage#,32=1
Long MapiMessage#,36=MapiRecipDesc#
Long MapiMessage#,40=1
Long MapiMessage#,44=MapiFileDesc#
' starten
Cls
MAPISendMail(0,0,MapiMessage#,11,0)
' Aufräumen:
Dispose MapiMessage#
Dispose subject#
Dispose text#
Dispose MapiRecipDesc#
Dispose recip#
Dispose MapiFileDesc#
Dispose file#

[Sato]

Hallo Andreas

Funktioniert immer noch nicht. Frank's Lösung läuft, sollte nur erweitert
werden so das die email adresse auch automatisch eingetragen werden.

Gruss
Sato

[AHT]

So besser?

'#####################################################################################
'#########           XProfan Code von Frank Abbing und AHT                   #########
'#########       für Paules PC-Forum http://www.paules-pc-forum.de           #########
'#####################################################################################
Declare mapimessage#,mapifiledesc#,treff$,body$,attach$,last$,recipe#
Declare Mail$, MapiRecipDesc#
Dim mapimessage#,48
Dim mapifiledesc#,24
Dim MapiRecipDesc#,24
Mail$="Test@web.de"
Clear mapimessage#
Clear mapifiledesc#
last$="c:/CONFIG.SYS"  'Datei
attach$=last$+Chr$(0)+Space$(280)
Long mapifiledesc#,8=-1,Addr(attach$)
treff$="Überschrift" 
body$="Hier\nsteht\nein\nText"
Long mapimessage#,4=Addr(treff$),Addr(body$)
Long mapimessage#,40=1,mapifiledesc#
Long MapiRecipDesc#,4=1
Long MapiRecipDesc#,8=addr(Mail$)
Long MapiRecipDesc#,12=addr(Mail$)
Long mapimessage#,24=2
Long mapimessage#,32=1
Long mapimessage#,36=MapiRecipDesc#
External("mapi32.dll", "MAPISendMail",0,0,mapimessage#,$8,0)
Dispose mapimessage#
Dispose mapifiledesc#
Dispose mapifiledesc#

[horsthorn]

In XProfan steht in der Hilfe unter "Mail" folgender Code.
Nachdem ich diesen Code meinen Daten angepasst habe, konnte ich von der einen eigenen Mail-Adresse zu einer anderen eigenen Mail-Adresse eine Mail mit "Betreff", "Mailtext" und einer Datei verschicken.
(Warum in die Ferne schweifen ? Sieh, das Gute liegt so nah !)
...das "Gute" ist in diesem Fall die XProfan-Hilfe

@SMTP("SendFile",S1,S2,S3,S4,S5,S6,S7,S8)

S1: Mail-Adresse Absender
S2: Mail-Adresse Empfänger
S3: Betreffzeile
S4: SMTP-Host
S5: Username
S6: Paßwort
S7: Mailtext
S8: Datei für den Anhang
Ergebnis: Integer - Ergebnis der Funktion

"SendFile" hat die gleiche Syntax wie "SendMail", nur dass zusätzlich noch ein Dateiname angegeben werden muß. Diese Datei wird als Anhang mitgeschickt. Ein Beispiel

declare datei$
cls
datei$ = @loadfile$("Datei laden:", "*.jpg")
print @smtp("SendFile", "rgh-soft@t-online.de", "roland@huelsmann.net", \
"Neue SendFile-Funktion", \
"mailto.t-online.de", "", "", \
"Das ist der Text der Mail! \nGruß Roland", datei$)
waitinput
end

[Sato]

Hallo Andreas

ja, jetzt funktioniert es gut

Horst: Funktioniert bei Dir das code aus der Hilfe? Bei mir noch nicht

Gruss
Sato