Tjo.

Jag håller på med ett litet mailskript. Det funkar som det ska, men jag vill att "Mail.From" ska bli "Johnny Aagaard" istället för "johnny@sweweld.se". Jag lyckas ej med detta.

Någon som har något förslag?


Dim Mail As New Message

Dim Config As Configuration: Set Config = Mail.Configuration

Config(cdoSendUsingMethod) = cdoSendUsingPort
Config(cdoSMTPServer) = "mail.sweweld.se"
Config(cdoSMTPServerPort) = 587
Config(cdoSMTPAuthenticate) = cdoBasic
Config(cdoSMTPUseSSL) = False
Config(cdoSendUserName) = "johnny@sweweld.se"
Config(cdoSendPassword) = "*******"
Config.Fields.Update

Mail.To = "" & ShortText & ""
Mail.from = Config(cdoSendUserName)
Mail.Subject = "Visningar d. " & Format(Date + 1, "yyyy-mm-dd") & ""
Mail.HTMLBody = "Hej
Detta meddelande innehåller morgondagens visningar

Mvh
Bokningen
"
Mail.AddAttachment "C:\Users\" & UserName & "\Dropbox\Visningar\" & Format(Date + 1, "yyyy") & "\" & Format(Date + 1, "mm") & "\" & Format(Date + 1, "dd-mm-yyyy") & ".xlsm"

Mail.Send