Verzenden Nota's adverteerders

[lam201]

In versie office 2019 gaat het bij de volgende regel fout:

c01 = ThisWorkbook.Path & "\" & st(1, 1) & ".pdf"

Bericht automatisch samengevoegd: Gisteren om 19:54

Hoi Ed, Nu werkt deze bij mij wel.

Dit kan fout gaan als het bestand is opgeslagen in een sharepoint locatie. Of een Onedrive locatie.
bijvoorbeeld:

https://mijndomein.sharepoint.com/personal/jan.janssen/Documents/test.xlsx

 

[bron]

Iets meer gedetailleerde info svp (zoals onze moderatoren altijd benadrukken )

Klik Mailen, Biljartpoint + concept aangevinkt
Fout 9 bij c01 = ThisWorkbook.Path & "\" & st(1, 1) & ".pdf"

De alternatieve vba uit #20 werkt goed. Omdat je Cells(1).Text gebruikt wordt het een schone html email zonder table/opmaak. Klein detail, het origineel gebruikt .Display ipv .Send

De bijlage is het origineel waarin alleen dit is aangepast

• Tekst in de email is zonder tabel, net zoals bij @snb (tekst valt niet buiten beeld op kleine schermen).
• Lettergroote, vet en cursief worden overgenomen van blad "Tekst tbv mail".

 

[snb]

@bron

Als je emails wil verzenden zul je toch echt send moeten gebruiken.

Voor een deskundige als TS is het niet logisch zulke eenvoudige tekst in HTML op te nemen. Het voegt inhoudelijk niets toe.

@lam201
Dank voor je suggestie. Daardoor kan het op mijn systeem nooit mislopen.

 

[bron]

als het bestand is opgeslagen in een sharepoint locatie. Of een Onedrive locatie.

Vermoedelijk wordt het lokaal op een pc gebruikt. Oplossing hiervoor is de temp map
sPdf = Environ("TEMP") & "\" & lstAdverteerder.List(x) & ".pdf"

Bericht automatisch samengevoegd: Vandaag om 14:52

Als je emails wil verzenden zul je toch echt send moeten gebruiken.

Klopt maar ik heb het origineel aangehouden. Dan wordt er blijkbaar verstuurd vanuit Outlook.

Voor een deskundige als TS is het niet logisch zulke eenvoudige tekst in HTML op te nemen. Het voegt inhoudelijk niets toe.

In het origineel werd ook de opmaak van de cellen overgenomen in de email.
Dat heb ik zo gehouden, alleen beperkt tot lettergrootte, vet en cursief zodat de html schoon blijft.
TS hoeft hier verder niets mee te doen.

 

[edmoor]

In het origineel kan de gebruiker ook kiezen voor Concept of Email waardoor of .Save of .Send wordt gebruikt. De .Save slaat de email als concept op in Outlook waarna die eenvoudig na te zien en te verzenden zijn.

 

[snb]

Display in outlook verzendt niets. TS heeft dit gekopieerd van Ron de Bruijn zonder begrip van de code.

 

[edmoor]

.Display en .Send kunnen ook samen worden gebruikt om een Outlook handtekening in de mail mee te nemen.

 

[snb]

@ed
Kijk eens in #24. Bron blijkt de betekenis van display niet te kennen.

 

[edmoor]

Mijn opmerking in #27 was puur ter kennisgeving.

 

[bron]

In het origineel staat

If cbxMail Then
    '.Send
    .Display
Else
    .Save
End If

Ik kan mij voorstellen dat dit bewust is gedaan zodat er een extra controle tussen zit voordat de email de deur uit gaat.

 

[edmoor]

Precies.
Als je die ' verwijderd werkt dat weer zoals bedoeld.