toevoegen bijlage in mail in excel

[RobTHMG]

Beste excel-vrienden.

Ik heb het volgende probleem
In excel wil ik een bestand met attachment versturen

Het bestand is vanuit excel opgeslagen met de naam samengesteld uit het nummer (veld C56) tussenstk -V1- en de naam (C62)

de mailing werkt prima alleen het toevoegen van de bijlage niet,
(de code olmail.attachement heb ik van een artikel hier op helpmij.nl)

Mijn hulpvraag dus:
wat is de juiste code om het bestand uit de sharepoint-bestandsmap te halen en als bijlage in de mail te krijgen?

Alvast weer veel dank voor de reacties.


code:


Sub Send_Range_CONTRACTviamailV1()

' Een cellenbereik selecteren in het actieve werkblad.
ActiveSheet.Range("A1:I31").Select
' De envelop weergeven in de actieve werkmap.
ActiveWorkbook.EnvelopeVisible = True


' Een optionele toelichting toevoegen om
' een koptekst op te nemen in het e-mailbericht. Hiermee worden ook de regels
' Aan en Onderwerp ingesteld. Tot slot wordt het bericht
' verzonden.
With ActiveSheet.MailEnvelope
.Item.To = ActiveSheet.Range("O14").Value & ";" & Range("O15").Value
.Item.Subject = "Tripartiete Contract V1 "
End With
bstnm = ActiveSheet.Range("C56").Value & "-V1-" & Range("C62").Value & ".pdf"
Map = "https://bedrijfs.sharepoint.com/sites/ZIBPOOpleidingzijinstroominhetberoepleraarPrimairOnderwijs/Gedeelde%20documenten/Scholingscontracten/Te_Archiveren/"
Bestand = Map & bstnm
olMail.Attachments.Add Bestand


End Sub

 

[HSV]

.item.Attachments.Add Bestand
.item.send

 

[RobTHMG]

item. werkt niet

Dag Harry,

Ik krijg een foutmelding: ongeldig of niet-gekwalificeerde verwijzing

Ik hoop op nog wat steun

dank weer
Rob

 

[HSV]

.item. moet je hebben.

Werkt uitstekend, en zoals het hoort.
Zoek het in "map & bstnd".

 

[RobTHMG]

Dag Harry,

Dank dat je zo snel antwoord, maar ik kom er niet echt mee verder

De foutmelding staat echter op .Item


Ik hoop op een voor mij begrijpelijke suggestie

groet

Rob

 

[HSV]

Moet ook tussen With en End With

 

[edmoor]

Naast wat HSV zegt heb je in je laatste plaatje de variabelen Map en Bestand tussen aanhalingstekens staan.
Dat moet dus niet.
En volgens mij kan je ook geen http(s) adres gebruiken.
Het moet een map zijn die via de Verkenner bereikbaar is.

 

[RobTHMG]

Ik heb de aanhalingstekens verwijderd, maar krijg nog steeds een foutmelding en de regel met .Item.attachement kleurt geel

 

[HSV]

Je volgorde is verkeerd.

sub mail()
bestand = blabla
 with activesheet.mailenvelope
    .item.to
    .item.subobject
    .item.attachments.add bestand
    .item.send
 end with
end sub

Beter:

sub mail()
bestand = blabla
 with activesheet.mailenvelope.item
     .to
     .subobject
     .attachments.add bestand
     .send
 end with
end sub

 

[RobTHMG]

Heren,

Mijn hartelijke dank.
na het veranderen van de volgorde, werkt de macro perfect.

fijne zondag

Rob