-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.fsx
33 lines (28 loc) · 985 Bytes
/
main.fsx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#load "kita.fsx"
#load "mail.fsx"
#load "csv.fsx"
open System.IO
open Mail
open Kita
open Csv
let config = SmtpConfig.GetSample()
let prepareEmail =
let content = File.ReadAllText (__SOURCE_DIRECTORY__ + "/msg.txt")
fun kita fromEmail fromName ->
let subject = sprintf "%s | Kita anmeldung" kita.Name
message content subject kita.Email fromEmail fromName
let applyToKita sendEmail =
let sendEmailInternal kita =
let mail = prepareEmail kita config.Sender config.Name
match (sendEmail mail) with
| Ok _ -> { kita with Status = "Email Sent"}
| Error _ -> { kita with Status = "Failed"}
Array.map (sendEmailInternal)
let emailSender client =
let result =
findKita 2 52.507248 13.494900
|> applyToKita (sendEmail client)
|> Array.map (fun it -> {it with Status = "Email Sent"})
|> toCsv
File.WriteAllText (__SOURCE_DIRECTORY__ + "/result.csv", result)
emailSender |> client config