Question

我可以将F＃控制台应用实际部署为Azure WebJob吗？在VS2017中找不到合适的选项：（

如果可能的话，你能看一下我的代码吗？如果我将它部署为AzureWebJob，它会工作吗？我需要改变什么吗？

open FSharp.Data;
open System
open System.Net.Mail


let server = "smtp.gmail.com" 
let sender = "fsharpie.send@gmail.com" 
let password = "password" 
let port = 587
let SendTest email topic msg = 
    use msg = 
        new MailMessage(
            sender, email, topic, 
            msg)
    let client = new SmtpClient(server, port)
    client.EnableSsl <- true
    client.Timeout <- 20000
    client.DeliveryMethod <- SmtpDeliveryMethod.Network
    client.UseDefaultCredentials <- false
    client.Credentials <- System.Net.NetworkCredential(sender, password)
    client.Send msg


let metaTitle (doc:HtmlDocument) =
    doc.Descendants "meta"
    |> Seq.choose (fun x ->
        match x.AttributeValue("name"), x.AttributeValue("property") with
        | "title", _
        | "headline", _
        | "twitter:title", _
        | _, "og:title" ->
            Some(x.AttributeValue("content"))
        | _, _ -> None
    )

let titles (doc:HtmlDocument) =
    let tagged (tag:string) =
        doc.Descendants tag |> Seq.map (fun x -> x.InnerText())
    Seq.concat [tagged "title"; metaTitle doc; tagged "h1"]

let title (doc:HtmlDocument) =
    titles doc |> Seq.tryHead


let finalTitle (link:string) = try
                                link
                                |> HtmlDocument.Load
                                |> titles
                                |> Seq.head
                                with 
                                | :? Exception as ex -> ex.Message

[<EntryPoint>]
let main argv = 
    let website = "website.com"
    if(finalTitle website <> "expected title")
    then
            SendTest "result@gmail.com" "Status: Failed" (website + " is down :( ")

    0 // return an integer exit code