Verzenden Nota's adverteerders

[basblok]

Geacht Forum,

De nota's worden niet ( meer ) als bijlage verzonden.
Ook de tekst op het blad Tekst tbv mail komt niet geheel in beeld.
Kan iemand hier aub even naar kijken?

 

[bron]

De tekst kan je in 1 cel zetten (naar volgende regel met Alt+Enter) en in celeigenschappen bij Uitlijning de Terugloop aanvinken en verticaal boven uitlijnen. Bij het smaller/breder maken van de kolom blijft de tekst altijd binnen de cel.

 

[edmoor]

Dubbelklik eens op de cel scheidings streep rechts van A:

 

[bron]

Misschien gekke vraag. Gaat het alleen om deze 8 advertenties?
Dit kan ook handmatig in Outlook of een ander emailprogramma

 

[bron]

Nog even gekeken.

De tekst komt niet goed in de email omdat de tekst als "tabel met vaste breedte" in de email terecht komt. Op minder brede schermen valt daardoor rechts een stuk tekst weg.
De mail-knop is niet gekoppeld aan Sub CommandButton1_Click(). Ik zie in de VBA "Working in Office 2000-2016". Misschien iemand die tijd heeft om hierin te duiken.

 

[edmoor]

De knop werkt prima en is dus correct gekoppeld.
De code waar je naar verwijst is een functie om een opgegeven bereik naar HTML code te converteren, gemaakt door de alom gewaardeerde Ron de Bruin.
De mailing code zit in Userform1 die wordt geopend middels de knop Mailen in het werkblad Totalen, gemaakt door edmoor

 

[bron]

Deze knop werkt bij mij niet. Doe ik iets niet goed?

 

[edmoor]

Heb je het bestand na het downloaden wel gedeblokkeerd?

 

[bron]

Ik heb opnieuw het bestand gedownload
Blokkering opheffen en inhoud inschakeln doe ik altijd.

De knop Mailen werkt niet. Als ik de muis erboven zweef krijg ik geen pijl.

 

[edmoor]

Werkt hier prima en bij TS dus ook.
Geen idee waarom dan bij jou niet.

 

[jverkerk]

@bron , ik krijg ook geen pijl maar als ik op de knop druk werkt het hier ook prima.

 

[edmoor]

Er is inderdaad iets vreemds aan de hand met ActiveX objecten.
Ik heb de knop verwijderd en er een formulier besturingselement voor in de plaats gezet.
Gaat het zo beter?

 

[Warme bakkertje]

Omwille van de veiligheid zijn ActiveX-objecten tegenwoordig standaard geblokkeerd in O365 en O2024 wanneer je een file download.
Je moet deze dan via het Veiligheidscentrum terug activeren.

 

[edmoor]

Je hebt gelijk, maar het probleem doet zich hier voor in mijn lokale Office 2021 met ActiveX en VBA ingeschakeld.
Andere instellingen in het Veiligheidscentrum wijzigen er niets aan.

 

[bron]

Op mijn laptop staat Office 2024 en inderdaad, ActiveX objecten staan uit.
Ik laat 'm uit maar handig om te weten wat de oorzaak is.

 

[snb]

Het is natuurlijk veel beter om alleen geldige keuzen in een keuzevak op te nemen. Dat bespaart controles achteraf en irritatie bij gebruikers.
Het is ook veel handiger de emailadressen meteen in de combobox te laden.

Er blijven 2 procedures over:
- het vullen van het keuzevak (combobox)
- de verzending van fakturen aan de geselekteerde sponsors

 

[bron]

@snb, er lijkt een bugje in te zitten, bij mij in Off.2024 krijg ik in Sub btnEmail_Click()

 

[edmoor]

De versie van snb werkt hier prima.

 

[Omteleren]

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.

 

[snb]

@bron

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

Bericht automatisch samengevoegd: Vandaag om 11:42

Alternatieve code:

Private Sub btnEmail_Click()
    c00 = Blad3.Cells(1).Text
    Set ol = CreateObject("Outlook.Application")
    
    With lstAdverteerder
         For j = 0 To .ListCount - 1
            If .Selected(j) = True Then
               st = Array(.List(j, 0), .List(j, 1), .List(j, 2))
               
               c01 = ThisWorkbook.Path & "\" & st(0) & ".pdf"
               Sheets(st(1)).ExportAsFixedFormat 0, c01
               
               With ol.CreateItem(0)
                .To = st(2)
                .Subject = "Factuur"
                .Body = c00
                .Attachments.Add c01
'                .Send
               End With
            End If
        Next
    End With
End Sub