webmail cloud functie: excel vba een file versturen

Status
Niet open voor verdere reacties.
B

Bobske68

Nieuwe gebruiker
Lid geworden
10 dec 2016
Berichten
4
Goedenmiddag,

Wij zijn sinds kort over gegaan van microsoft 365 naar de cloudservice voor outlook.
Ik heb een excel bestand wat voorheen een mail verstuurde naar bepaalde personen.
Deze functie werkt niet meer een mijn vraag is dan ook:

Is het mogelijk om via een VBA een bestand te versturen via de webmail?

Momenteel heb ik deze code gemaakt en die werkt wel voor outlook maar niet voor webmail:

Dim Bestand As String
Dim OutApp As Object
Dim OutMail As Object

Sheets("Dagelijkse Email").Select
Bestand = ThisWorkbook.Path & "" & ActiveSheet.Name & ".pdf"
Range("A1: D40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand

Body = "Dear Sir, Madam," & vbCrLf & _
" " & vbCrLf & _
"Please find enclosed the productivities and KPI's in PDF form." & vbCrLf & _
" " & vbCrLf & _
" " & vbCrLf & _
"Kind regards," & vbCrLf & _
" " & vbCrLf & _
" Warehouse team"

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "pietje@xxxx.com"
.Cc = "jan@xxxx.com"
.Bcc = "ikzelf@xxxx.com"
.Subject = "Productivity and KPI"
.Body = Body
.Attachments.Add Bestand
.Send
End With
Klik om te vergroten...

Alle hulp word zeer gewaardeerd.

Gr Bob
 
Member chat is hiervoor niet bedoelt. Verplaatst naar VBA.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan