Recente berichten

Pagina's: [1] 2 3 4 ... 10

E-Mailprogramma's / Re: Tekstcodering in Thunderbird

« Laatste bericht door Montagnard Gepost op Gisteren om 15:42:20 »

ik heb enkele jaren geleden een drastisch besluit genomen i.v.m. met mail (accounts) en me tot op vandaag nog nooit beklaagd :

ik heb een Outlook mailadres aangemaakt (Outlook.be maar Outlook.com kan ook).
dan heb ik in Telenet webmail ingesteld dat al mijn (Telenet) mail moest doorgestuurd worden naar dat Outlook adres.
dan mijn ganse adres boek verwittigd dat ze vanaf dan mijn Outlook adres moesten gebruiken.
bij ALLE mail die dan nog binnenkwam gericht aan mijn Telenet adres ( meestal van websites enz ) heb ik onmiddellijk ingelogd en mijn mail adres aangepast.
in het begin waren dat er redelijk veel maar dat verminderde keer op keer en nu krijg ik geen énkele mail nog via mijn Telenet adres.
ik kan nu gelijk welke provider nemen voor Internet / mail , ik gebruik gewoon verder mijn Outlook adres en negeer het door de provider aangeboden adres.
in Telenet webmail staat er gewoon niets meer van mij , geen mails en geen mail adressen.

Mvg,
Montagnard.

Excel / Re: Commandbar aanroepen

« Laatste bericht door dizzl Gepost op Gisteren om 15:21:12 »

Nu open je een formulier bij knop klik.

Geen idee wanneer je het menu wilt zichtbaar maken, maar als het het op knopklik wilt dan moet je dit oproepen:

Code: [Selecteer]

Private Sub CommandButton1_Click()
   'Open het menu
   MenuBestand
   'open het formulier
   UserForm1.Show
End Sub

Excel / Re: Commandbar aanroepen

« Laatste bericht door Richard2000 Gepost op Gisteren om 11:34:19 »

Geen probleem, iig bedankt voor het meedenken

, ik pruts ondertussen gewoon lekker verder

E-Mailprogramma's / Re: Tekstcodering in Thunderbird

« Laatste bericht door SoftAid Gepost op Gisteren om 10:16:33 »

Hallo Arnold,

Dat je wou helpen dat is wat telt

Wat betreft gebruik zie ik niet zo dadelijk veel verschil tussen beide.
Maar ik heb eM Client ook nog niet kunnen testen, er scheelt nog iets aan de accountinstellingen.
Alles staat identiek aan Thunderbird, maar noppens.
Ik heb er ook nog niet veel tijd in kunnen steken. Te veel problemen met Telenet.

Eerst kwamen meldingen van oplossing.be niet meer binnen.
Uiteindelijk vond ik ze terug in mijn Spam-map van Telenet webmail.
Daar ben ik nu al 10 dagen zoet mee, telefoontje hier, mailtje daar.
Niets hielp om hen het probleem zelfs maar uit te leggen.

Dan Combell ingeschakeld, daar heb ik in totaal een 20 mailtjes van in de map zitten. Resultaat, Telenet zijn fout.
Telenet stuurt mij dan naar de provider waar de website gehost is (comell dus) en als ik zeg dat Combell alles heeft nagekeken aan hun kant, en zeggen dat het de fout van Telenet is, dan zijn ze ineens akkoord dat het bij hen kan liggen.
Maar.... dat moeten ze doorgeven aan een andere dienst enzovoorts enzovoorts. Van het kastje naar de muur....

Gisteren werd ik dan gebeld door technischehulp@telenet en die mevrouw ging er werk van maken. Voor de zoveelste keer moest ik een deel van die mails (die verkeerd terecht kwamen) opsturen naar hun, en warempel, in de namiddag kwam er 1 mail van oplossing in de Inbox terecht, hoera. Daarna werd het stil en ontving ik geen mails meer van oplossing, in geen enkele box. Dat is nu nog steeds zo, en ik ga nu maar weer aan het bellen slaan, want op mijn mails van gisteren krijg ik een reactie: 16/04/21 08:32

Citaat

Naar aanleiding van ons contact gisteren en uw daarop volgende mails test ik even of deze mail al dan niet bij u correct wordt afgeleverd. U mag deze mail gewoon negeren, ik neem contact op van zodra ik meer nieuws heb.

We zijn nu 10:10 en er is nog niets gebeurd. Bedroevend.

Afwachten maar...

Groeten,

SoftAid

Excel / Re: Commandbar aanroepen

« Laatste bericht door Montagnard Gepost op Gisteren om 08:40:24 »

sry , mijn kennis reikt niet ver genoeg , hopelijk kan een andere "oplosser/helper" U wel helpen...
Mvg,
Montagnard.

E-Mailprogramma's / Re: Tekstcodering in Thunderbird

« Laatste bericht door Montagnard Gepost op Gisteren om 08:07:12 »

Citaat van: SoftAid op 15 april 2021, 18:50:47

Hallo Arnold,
Dat topic is van 2014 en bestemd voor US, ik kon er niet veel nuttig uit halen.

oeps had er geen acht op geslagen , wou gewoon helpen , maar ga daar idd toch beter op letten...
toch nog altijd twijfel tussen Thunderbird & eMclient ?
mvg,
Montagnard.

E-Mailprogramma's / Re: Tekstcodering in Thunderbird

« Laatste bericht door SoftAid Gepost op 15 april 2021, 18:50:47 »

Hallo Arnold,

Dat topic is van 2014 en bestemd voor US, ik kon er niet veel nuttig uit halen.

Ik heb intussen goede raad gekregen die wel werkt:

Je moet rechtsklikken (ergens) in Postvak-In en daar de Map-eigenschappen bewerken:
Terugvaltekstcodering: als Unicode (UFT-8) instellen
een vinkje zetten bij "Codering op alle berichten in de map toepassen....."

Dit werkt dus voor de map Postvak-In.
Wil je dit ook voor bijvoorbeeld je map Concepten, dan dien je bovenstaand te herhalen voor die map.

Ook mijn adresboek heb ik nu kunnen overzetten van Thunderbird naar eM Client.
Eerst Adresboek openen, Extra, Exporteren, Alle Adresboeken (of Persoonlijk adresboek), Kommagescheiden (Systeemtekenset)(*.CSV) en dit opslaan (op je bureaublad of dergelijke)
Importeren vanuit een csv-bestand in eM Client moet je wel nog namen toewijzen aan de kolommen, maar dat wijst zich wel zelf aan.

Met dank aan alle helpers.

SoftAid

E-Mailprogramma's / Re: Tekstcodering in Thunderbird

« Laatste bericht door Montagnard Gepost op 15 april 2021, 16:15:34 »

hier iets mee : https://support.mozilla.org/en-US/questions/989709 ?
Mvg,
Montagnard.

Excel / Commandbar aanroepen

« Laatste bericht door Richard2000 Gepost op 15 april 2021, 11:12:41 »

Hallo,

Ik probeer een commandbar te maken en dat lijkt te lukken maar krijg deze niet aangeroepen met een cmd knop, ik ben nog steeds een beetje een leek op excel VBA en een commandbar is helemaal nieuw en kan er helaas weinig over vinden op het net, voor zover ik begrijp moet je een commandbar in een klasse module bouwen en gaat het oproepen van de sub anders dan in een form of module, ik heb dezelfde commandbar ook in een norm. module gezet maar dan de variable's zonder event's en dan lukt het oproepen wel maar dan werken de buttons zelf niet, en in de klasse module krijg ik een variable niet gedefineerd maar welke?
Dus nou twijfel ik of het nu in een normale of een klasse module moet? Googlen levert niets op en wat ik vind krijg ik ook niet aan de praat met dezelfde variable fout dus wat doe ik nou verkeerd?

Hieronder de code en het gaat om menubestand, hoe roep ik die aan?

Code: [Selecteer]

Option Explicit

Public WithEvents Opslaan As CommandBarButton
Public WithEvents OpslAls As CommandBarButton
Public WithEvents Opvul1 As CommandBarButton
Public WithEvents Export As CommandBarButton
Public WithEvents Import As CommandBarButton
Public WithEvents Opvul2 As CommandBarButton
Public WithEvents Printer As CommandBarButton
Public WithEvents Opvul3 As CommandBarButton
Public WithEvents Afsluiten As CommandBarButton

Public DateString As String
Public FolderName As String
Public wsExp As Worksheet
Public Map As String

Function MenuBestand()

    Public oCmbar As CommandBar
    Set oCmbar = Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
           
        Set Opslaan = oCmbar.Controls.Add(msoControlButton)
        Set OpslAls = oCmbar.Controls.Add(msoControlButton)
        Set Opvul1 = oCmbar.Controls.Add(msoControlButton)
        Set Export = oCmbar.Controls.Add(msoControlButton)
        Set Import = oCmbar.Controls.Add(msoControlButton)
        Set Opvul2 = oCmbar.Controls.Add(msoControlButton)
        Set Printer = oCmbar.Controls.Add(msoControlButton)
        Set Opvul3 = oCmbar.Controls.Add(msoControlButton)
        Set Afsluiten = oCmbar.Controls.Add(msoControlButton)
               
        With Opslaan
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 19
            .Caption = "Opslaan"
        End With
        
        With OpslAls
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 21
            .Caption = "Opsl. Als"
        End With
        
         With Opvul1
            .Height = 15
            .Width = 120
        End With
        
        With Export
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Export"
        End With
        
        With Import
             .Style = msoButtonIconAndCaption
             .Height = 30
            .Width = 120
             .FaceId = 39
             .Caption = "Import"
        End With
        
         With Opvul2
            .Style = msoButtonIcon
            .Height = 15
            .Width = 120
        End With
        
         With Printer
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Printer"
        End With
        
         With Opvul3
            .Style = msoButtonIcon
            .Height = 15
            .Width = 120
        End With
        
         With Afsluiten
            .Style = msoButtonIconAndCaption
            .Height = 30
            .Width = 120
            .FaceId = 22
            .Caption = "Afsluiten"
        End With
                
        oCmbar.ShowPopup (20), (60)
        oCmbar.Delete
   
End Function

Private Sub Opslaan_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

      ProgOpslaan
End Sub

Private Sub OpslALs_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)

      ProgOpslAls
End Sub

Private Sub Export_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
      BestandExport
End Sub

Private Sub Import_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
      
End Sub

Sub ProgOpslaan(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Application.ThisWorkbook.Save
End Sub
Sub ProgOpslAls(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Map = Application.ThisWorkbook.Path
Application.Dialogs(xlDialogSaveAs).Show (Map)
End Sub
Sub BestandExport(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook

Dim xFile As String


Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
 
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & "export" & "\" & xWb.Name & wsExp.Name & " " & DateString
FileExtStr = ".xlsb": FileFormatNum = 50
 
MkDir FolderName
 
    wsExp.Select
    wsExp.Copy
    xFile = FolderName & "\" & wsExp.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile

    
    Application.ScreenUpdating = True
    
End Sub