Envoyer un mail VBA depuis un fichier Excel sur Sharepoint
Hello le forum !
J'ai un code VBA qui doit envoyer un mail avec la feuille active comme pj en pdf (je suis débutant).
CA marche très bien avec ce code quand je suis en local :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| Sub SendToSM()
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim SMmail As String
On Error Resume Next
Range("K:2").Select
SMmail = ActiveCell.Value
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = SMmail
.CC = ""
.BCC = ""
.Subject = "xxxxxxxxxxx"
.Body = "Hi xxxxxxxxxxxxxx. Thank you"
.Attachments.Add FileName
.Display
'.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub |
Par contre dès que j'upload le fichier sur sharepoint j'ai un problème, il me joint un fichier pdf mais inutilisable. Si je Click dessus j'arrive sur une page 404.
Quelqu'un aurait-il une idée ?
J'ai posté cette question dans le forum VBA mais je n'ai pas de réponses, aussi je me permet de le poster sur ce forum.
Merci beaucoup d'avance
