Sub email_pdf()
Dim dossier As String
Dim nomNewClasseur As String
Dim CdoMessage As Object
Dim email As String
Dim Cdo_Message As Object
dossier = Range("A9")
email =Range("E15")
nomNewClasseur = Range("A9") & "-" & Format(Range("F2"), "ddmmyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\\ecap\" & nomNewClasseur, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Set Cdo_Message.Configuration = GetSMTPServerConfig()
Set CdoMessage = CreateObject("CDO.Message")
With CdoMessage
.Subject = "Etat financier de votre dossier"
.From = "moi@moi.com"
.To = email
.cc = ""
.BCC = ""
.TextBody = "Vous trouverez ci-joint un état "
.AddAttachment "C:\Users\recap\" & nomNewClasseur
.Send
End With
Set CdoMessage = Nothing
End Sub
Function GetSMTPServerConfig() As Object
Dim Cdo_Config As Object
Dim Cdo_Fields As Object
Dim Cdo_Config As Object
Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = "monadresse"
.Item(cdoSendPassword) = "mon paswword"
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function
End Sub