Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Vedhæft fil i mail.

 Besvar Besvar
Forfatter
Kenny.E Se dropdown
Forum Begynder
Forum Begynder


Medlem: 26-12-2017
Status: Offline
Point: 3
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Kenny.E Citér  BesvarSvar Direkte link til dette indlæg Emne: Vedhæft fil i mail.
    Sendt: 17-07-2020 kl. 12:39
Hej jeg bruger det her cdo script men jeg kan ikke få det til at sende den vedhæftet fil med det sender kun beskeden håber der er en der kan hjælpe.
Hilsen
Kenny

Private Sub CmdSendMail_Click()
   
    Dim mail    As Object           ' CDO.MESSAGE
    Dim config  As Object           ' CDO.Configuration
    Dim xFileToOpen As String
    Set mail = CreateObject("CDO.Message")
    Set config = CreateObject("CDO.Configuration")
    
    config.fields(cdoSendUsingMethod).Value = cdoSendUsingPort
    config.fields(cdoSMTPServer).Value = "smtp.gmail.com"
   
    config.fields(cdoSMTPServerPort).Value = 465  ' implicit SSL - Does not work with Explicit SSL (StartTLS) usually on Port 587
    config.fields(cdoSMTPUseSSL).Value = "true"
    
    config.fields(cdoSMTPAuthenticate).Value = cdoBasic
    config.fields(cdoSendUserName).Value = "xxxxxxxx@xxxx.com"
    config.fields(cdoSendPassword).Value = "xxxxxxxxx"

    config.fields.Update
    Set mail.Configuration = config
    On Error Resume Next
    ChDrive "M:"
    ChDir "M:\xxxxxxx\xxxxxxx"
    xFileToOpen = Application.GetOpenFilename(FileFilter:="PDF files,*.pdf", Title:="Select the right attachment")
    With mail
        .To = "xxxxx@xxxxxxxxxx.xxx"
        .From = "xxxxxxx@xxxxx.xxx"
        .Subject = "First email with CDO"
        .TextBody = "This is the body of the first plain text email with CDO."
        If xFileToOpen <> "" Then Add.Attachments xFileToOpen, 1
        .Send
    End With
    On Error GoTo 0
    Set config = Nothing
    Set mail = Nothing
Unload Me 'delete userform
End Sub
Til top



Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2020 Dansk Regneark Forum - en del af Excel-regneark.dk