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.
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
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Vedhæft fil i mail.
Emne funktioner
