Send email with VBA
Bonjour à tous
J'ai un tableau avec la liste des noms des employés et leur liste de diffusion et les données qui changent chaque mois.
J'ajoute des colonnes pour chaque mois supplémentaire et je ne supprime pas.
Je souhaite envoyer à chaque employé un e-mail avec les données pertinentes pour ce mois uniquement et voir également la barre de titre (lignes 4-7) dans un fichier PDF.
J'utilise Outlook.
J'ai besoin d'aide pour ajuster le code VBA que j'ai:
1- Ajustez la plage à imprimer par une variable. Ce code imprime la feuille entière
2-Je n'ai pas besoin du fichier pdf de sauvegarde.
3- Je pense que si je mets un en-tête imprimable, il n'est pas nécessaire de définir les lignes des en-têtes imprimables à chaque fois.
Merci pour les aides !!!
J'ai utilisé la traduction Google
Sub RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail()
Dim FileName As String
Dim TempFilePath As String
Dim TempFileName As String
Dim SendTo As String
Dim Sh As Integer
TempFilePath = Environ$("temp") & "\"
''''
Sh = ActiveWindow.SelectedSheets.Count
If ActiveWindow.SelectedSheets.Count > 1 Then
MsgBox "יש " & Sh & " גיליונות מסומנים" & vbNewLine & _
"כל הגיליונות המסומנים יודפסו"
End If
'Call the function with the correct arguments
'Tip: You can also use Sheets("YourSheetName") instead of ActiveSheet in the code(sheet not have to be active then)
TempFileName = TempFilePath _
& "שכר עידוד" & " " _
& Format(Now, "dd-mm-yyyy h-mm") & ".pdf"
FileName = RDB_Create_PDF(Source:=ActiveSheet, _
FixedFilePathName:=TempFileName, _
OverwriteIfFileExist:=True, _
OpenPDFAfterPublish:=False)
'For a fixed file name use this in the FixedFilePathName argument
'FixedFilePathName:="C:\Users\Ron\Test\YourPdfFile.pdf"
SendTo = ActiveSheet.Cells(26, 141)
If FileName <> "" Then
RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
StrTo:=ActiveSheet.Cells(29, 141), _
StrCC:="", _
StrBCC:="", _
StrSubject:="דוח שכר עידוד", _
Signature:=True, _
Send:=False, _
StrBody:="לכבוד " & SendTo & _
"<body>מצורף בזאת דוח שכר העידוד " & _
"<br><br>" & "בברכה, תחום תעשייה וניהול</body>"
Else
MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
"Microsoft Add-in is not installed" & vbNewLine & _
"You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
"The path to Save the file in arg 2 is not correct" & vbNewLine & _
"You didn't want to overwrite the existing PDF if it exist"
End If
End Sub