[algemeen] link om email + attachement te sturen

[BdR]

ik wil een soort link of bat bestand maken die het standaard e-mail programma opent. Het "To:" veld moet ingevuld zijn en er moet automatisch een bestand als attachment zijn opgegeven. Dit als soort hulp middel omdat voor veel mensen het toevoegen van een bijlage een onmogelijke opgave is. (echt waar)

Ik heb al een batch file geprobeerd

code:

start mailto:[e-mail]&attachment="c:\test\logfile.txt"

maar dat werkt niet, attachment is geen geldig argument.. een leeg bestand aan maken (0 bytes) en die test.MAPIMail noemen heeft ook weinig zin want daar kan je via eigenschappen helemaal niets invullen ik heb overal gezocht en het lijkt onmogelijk, maar als iemand het toch weet: please let me know..

[Verwijderd]

rechtermuisknop op het document en dan
send to
mail recipient

Das de sneltje manier.

[Nowhereman]

Dat kun je beter met VBS proberen te proggen, daarmee is het namelijk wel mogelijk.
VBS zit standaard in windows, je kunt gewoon een tekstfile maken en die opslaan als *.vbs en dan runnen.
Info over vb(scripting) kun je op de M$ site vinden.

[BdR]

hm.. ja dat windows scripting had ik ook gezien, maar bijna niemand heeft windows-scripting aanstaan (dat is nml. een uitnodiging voor virii, hackers en andere problemen)

naja.. ik neem idd maar een regeltje in documentatie op, iets van "rechtermuis klik op het bestand en kies dan 'sendto' en dan 'mail recipient' om het bestand te versturen" als ze daar al niet uitkomen dan is dat ook eigenlijk maar hun probleem..

of een batch bestand die het mailtje opent (start mailto: etc.), en dan ook de map waar het bestand in zit opent (start <mapnaam>) en dan met "echo" melden dat de betreffende file in de e-mail gesleept moet worden, das denk ik ook wel een goeie oplossing..

[stdewi]

Hoi BdR,

Ik heb mischien al script dat je probleem voor een deel oplost.

Hierbij post ik al mijn code.

code:

Dim file
file = InputBox("Enter bestandsnaam:")

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[e-mail]"
objEmail.To = "[e-mail]"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"adres van server"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment "c:\test\" & file
objEmail.Send

Zelf heb ik al lopen zoeken om hetzelfde te doen via batch-scripting maar was het resultaat niet bevredigend en werk je dus beter met VB-script. Omdat je eigenlijk via WSH (windows scripting host) iets moet aansturen.

[F_J_K]

stdewi, zoals ook in andere topics gezegd: dank voor de tip. Werkt prima

Echter lijkt het me niet handig om elk topic met deze vraag te "kicken", een slimme zoeker vindt je tip al bij de juiste zoektermen. Hoe dan ook nog welkom