XProfan

Declare File$,Exe$,Addr&
File$ = GetEnv$("TEMP") + "\\test.eml"
Assign #1,File$
ReWrite #1
Close #1
Print FindFirst$(File$)
Exe$ = MkStr$("\z",256)
External("SHELL32","FindExecutableA",(File$),0,(Exe$))
Print Trim$(Exe$)
WaitInput
Erase File$

Print ReadIni$("HKEY_0","mailto\shell\open\command","")
'HKEY_CLASSES_ROOT\mailto\shell\open\command
WaitInput

' PRFellow-Vorlage
' (C) 2000, Thomas Hölzer,Siegen
' Alle Rechte vorbehalten
' Mail mit Dateianhang verschicken
' Voraussetzungen:
' Ab Profan 5.0 (getestet mit 6.6, 6.99ßXI)
' MAPI kompatibler E-Mail-Client
' Getestet bisher mit Outlook 98
' Die anzuhängende Datei muß auf jeden Fall existieren,
' sonst startet der E-Mail Client nicht.
' Der Einfachheit halber wurde die config.sys genommen, weil die
' auf den meisten 9x -Rechnern vorhanden ist.
' Ggf. ist eine andere Datei einzutragen.
' Bitte nicht absenden - mich interessiert anderer Leuts config.sys nicht ;-)
Def MAPISendMail(5) !"MAPI32.DLL","MAPISendMail"
Def ZeroMemory(2) !"KERNEL32","RtlZeroMemory"
Declare MapiMessage#,subject#,text#,MapiRecipDesc#,cc#,bcc#,additional#,x$
Declare MapiFileDesc#,recip#,file#
Dim MapiMessage#,48
Dim subject#,32
Dim text#,128
Dim MapiFileDesc#,24'für 1 Datei
Dim recip#,32
Dim cc#,32
Dim bcc#,32
Dim additional#,32
Dim file#,32
Dim MapiRecipDesc#,96' für 4 Empfänger
' Strukturen müssen unbedingt null-initialisiert werden.
' Clear arbeitet teilweise fehlerhaft,deshalb:
ZeroMemory(MapiMessage#,48)
ZeroMemory(MapiRecipDesc#,96)
ZeroMemory(MapiFileDesc#,24)
' Empfänger:
String recip#,0="Coole_Vorlagen@prfellow.de"
Long MapiRecipDesc#,4=1' = Empfänger
Long MapiRecipDesc#,8=recip#
'CC
String cc#,0="Profan-Solutions@prfellow.de"
Long MapiRecipDesc#,28=2' =CC
Long MapiRecipDesc#,32=cc#
'BCC
String bcc#,0="thoelzer@tehsoft.de"
Long MapiRecipDesc#,52=3'=BCC
Long MapiRecipDesc#,56=bcc#
'' Noch ein CC-Empfänger
String additional#,0="webmaster@tehsoft.de"
Long MapiRecipDesc#,76=2' der soll zusätzlich ins CC-Feld
Long MapiRecipDesc#,80=additional#
' Datei-Anhang:
String file#,0="C:\CONFIG.SYS"
Long MapiFileDesc#,12=file#
' Subject und Text:
String subject#,0="PRFellow 2001-Vorlage"
String text#,0="Dies ist ein Test - bitte NICHT abschicken!"
' Haupt-Struktur bestücken:
Long MapiMessage#,4=subject#
Long MapiMessage#,8=text#
Long MapiMessage#,32=4' Anzahl der Empfänger im folgenden Array
Long MapiMessage#,36=MapiRecipDesc#
Long MapiMessage#,40=1' Anzahl der Dateianhänge im folgenden Array
Long MapiMessage#,44=MapiFileDesc#
' und los (modal zum Hauptfenster!)...
Cls
WindowTitle GetText$(%hwnd)+" - Powered by PRFellow 2001"
MAPISendMail(0,0,MapiMessage#,11,0)
WaitInput
' Aufräumen:
Dispose MapiMessage#
Dispose subject#
Dispose text#
Dispose MapiRecipDesc#
Dispose cc#
Dispose bcc#
Dispose recip#
Dispose additional#
Dispose MapiFileDesc#
Dispose file#