Avatar billede molehonter Mester
13. december 2016 - 11:29 Der er 3 kommentarer og
1 løsning

Sende mail fra Access

Jeg har en script der sender en mail fra Access, med en vedhæftet fil.
Problemet er at den henter filen fra en default folder i outlook, kan jeg definere
et folder i access hvor filen skal sendes fra, på mail.

Peter
Avatar billede terry Ekspert
13. december 2016 - 11:40 #1
"Problemet er at den henter filen fra en default folder i outlook"

Can you explain what you mean here?

Is it possible to see code you are using?
Avatar billede jensen363 Forsker
13. december 2016 - 12:11 #2
Public Sub SendEmail()
Dim appOutLook As Outlook.Application
  Dim MailOutLook As Outlook.MailItem
  Dim strPath As String
  Dim strFileName As String
  Set appOutLook = CreateObject("Outlook.Application")
  Set MailOutLook = appOutLook.CreateItem(olMailItem)
  With MailOutLook
    .BodyFormat = olFormatRichText
    .To = "XXX@YYY"
    .CC = " "
    .bcc = " "
    .Subject = "Some text"
    .HTMLBody = "This is an autogenerated message"
    'add all CSV files
    strPath = "W:\Data Collector, DWH.nodlt\QuickView\Report\"
    strFileName = Dir(strPath & "*.xlsm")
    While strFileName <> ""
      .Attachments.Add (strPath & strFileName)
      strFileName = Dir()
    Wend
    .Send
  End With

End Sub
Avatar billede molehonter Mester
13. december 2016 - 19:49 #3
Jeg prøver at kigge på din løsning, jeg vender tilbage.
Avatar billede molehonter Mester
13. december 2016 - 22:32 #4
Tak for hjælpen jeg det til at virke.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester