Print side | Luk vindue

"Tester" uden Outlook installeret søges

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3251
Udskrevet den: 27.Nov.2024 kl. 07:45


Emne: "Tester" uden Outlook installeret søges
Besked fra: Ib Hansen
Emne: "Tester" uden Outlook installeret søges
Posteringsdato: 21.Nov.2017 kl. 18:26
Hej Forum.

Jeg søger en Tester, der ikke har MS Office Outlook installeret
Jeg har forsøgt at lavet et ark - Blodtryksskema - og søger en Tester.

Da jeg har MS Office Outlook installeret, kan jeg ikke selv teste om koden, der tjekker om Outlook er installeret, kører korrekt.
Jeg ved ikke om man kan deaktivere Outlook, uden at afinstallere den og det har jeg slet ikke lyst til Cry

------------------------------------

Arket bruger sit eget RIBBON, så det kræver Excel 2010 eller nyere, for at åbne det.

De 3 funktioner med rødt nedenunder, er dem jeg godt vil have testet

I Ribbon er der 2 buttons
  - Button 1 - Lav PDF og vedhæft den i en mail.
        - Gem PDF i mappe og vedhæft den i en mail.
        - Gem TOMT PDF i mappe og vedhæft den i en mail.

  - Button 2 - Send blodtryksskema vedhæftet i en mail.

Hvis Outlook ikke er installeret, skulle der gerne kommer en MsgBox = Outlook er ikke installeret.
Hmmm - Spændende om koderne er lavet rigtigt og om det overhovedet virker Confused

------------------------------------

Hvis man vil åbne arker, sker det i Admin menuen.
Password = Blod (med stort B)

En gang imellem, når man åbner eller lukker arket fra Admin menuen, kommer der desværre en BUG.
Hvorfor ved jeg ikke og jeg har aldrig kunne finde ud af det.
Så er der kun en ting at gøre - Luk arket og start det op igen Ouch

Hvis arket åbnes, vil den erfarne VBA operatør nok sige....
"Hold nu kæft et roderi - Sikke da et fjols" og han har sikkert ret....
Jeg tænker altså ikke på dig Excelgaard Beer

Men i stedet for at definere alt i VBA, hvad jeg har lidt svært ved, bruger jeg i stedet en "kontakt".

Kontakterne ses i fanen "Indstillinger" og her laver jeg en værdi "Ja" eller "Nej", VBA koden kan bruge.

F.eks. - "Vis patientvejledningen ved næste start op".
Hvis CheckBoxen er vinget af, sætter den et "Ja" i fanen Indstillinger B18.

Herefter laver jeg koden - If Sheets("Indstillinger").Range("B18") = "Ja" Then Patientvejledning.Show
Det er en lidt primitivt måde at gøre det på, men det virker for mig, i stedet for at prøve at definere langt vanskeligere koder.

Jeg ved godt at lige netop dén kode er simpel at lave - If CheckBox = True Then Patientvejledning.Show

Hvis man vil prøve at teste koden Outlook for mig, så /uploads/1125/Blodtryksskema_ver._4.02.xlsm" rel="nofollow">Download ark her

På forhånd tak Wink

Mvh.
Ib


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)


Svar:
Besked fra: InfoTAL
Posteringsdato: 21.Nov.2017 kl. 18:45
Desværre har jeg også Outlook, så der for ikke test.
Dog ser jeg at det er et godt ark/skema.
Derfor vil jeg godt bemærke, at jeg til diabetiker har et godt ark og program, hvis nogle har interesse i det.
DRF-Forum finder jeg meget givende og positivt, og værdsætter medlemskabet.

M.v.h.
InfoTal
v/H.C.

Besked fra: Ib Hansen
Posteringsdato: 21.Nov.2017 kl. 18:58
Hej InfoTal.

Tak for rosen.

Hvis du har et godt ark du vil dele, er der næst nederst på forsiden "Forum start", et forum til netop dette formål.

Det hedder /del-dine-regneark_forum14.html" rel="nofollow">Del dine regneark og ved at klikke på det blå link åbnes forummet Wink

Mvh.
Ib


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: EXCELGAARD
Posteringsdato: 22.Nov.2017 kl. 19:32
Det er sindsygt let, at teste om både Outlook er installeret, og om Outlook i det hele taget er konfigureret til at sende mail: 
If olClient = True Then ...
www.excelgaard.dk/Bib/olStatus/ www.excelgaard.dk/Bib/olStatus/

Men, send det gerne til mig - jeg har en Windows 8.1 maskine stående uden Outlook til netop dette formål (at teste mail forsendelser uden Outlook).



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Bjarnehansen
Posteringsdato: 22.Nov.2017 kl. 19:41
Hej Excelgaard
han har et link til download i den første besked ...


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK

Besked fra: Ib Hansen
Posteringsdato: 22.Nov.2017 kl. 19:52
Når jeg tester de to funktioner under Ribbon knappen "Lav PDF og vedhæft den i en mail".
Og funktionen i Ribbon knappen "Send blodtryksskema vedhæftet i en mail" åbner den fint Outlook, med de vedhæftede filer.

Men jeg ved ikke om koden neden under, der tester om Outlook er installeret, virker ??
'-----------------------------------------'
' Tjekker først om Outlook er installeret '
'-----------------------------------------'
    Dim OutApp As Object
    
    On Error Resume Next    'Suspend error checking
        Set OutApp = CreateObject("Outlook.Application")
    On Error GoTo 0         'Resume error checking
    
    If OutApp Is Nothing Then
        MsgBox "   Office Outlook er ikke installeret." _
        & vbNewLine & vbNewLine & "   Lav en PDF af skemaet" _
        & vbNewLine & "   og send PDF'en med din normale mail." _
        , vbInformation, "Outlook er ikke installeret": GoTo open_map
    End If

Koden står 3 steder under hver af de 3 funktioner i modulerne.
- Button_Send_Ark_I-Mail.
- Buttons_LavPDF_LavPDFogMail - Her står den både under Udfyldt skema og Tomt skema.

De sidste to koder er noget rod, jeg har kopieret fra et andet ark, men de skal ryddes op.

Arket kan downloades fra mit første indslag i denne tråd.
Men det kan også downloades uploads/1125/Blodtryksskema_ver._4.02.xlsm" rel="nofollow - HER

Mvh.
Ib



-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Besked fra: EXCELGAARD
Posteringsdato: 23.Nov.2017 kl. 12:04
Du kan godt teste på, om du kan definere et Outlook objekt, men dette siger intet om, hvorvidt det er muligt, at sende mail med Outlook - det fortæller blot, at Outlook er installeret på computeren.

Og, mange får blot Outlook installeret, når de alligevel installere Office pakken, fordi de skal bruge Excel og Word - men i realiteten bruger de en anden form for mail - typisk en webmail, som Gmail, Hotmail eller lignende.

Hvis du vil være sikkert på, at Outlook virkelig er sat korrekt op, har defineret en konto, og er klar til at sende mail, skal du foretage nogle flere test, end blot, at checke om Outlook er installeret.

Igen må jeg henvise til min olStatus() funktion, der klarer alt arbejdet for dig:
www.excelgaard.dk/Bib/olStatus/ www.excelgaard.dk/Bib/olStatus/



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Print side | Luk vindue