guinslym

biblio = ["Cumberland","North Gloucester", "Orléans", "Stittsville", "Centennial",
"HAzeldean", "Elmvale Acres", "Altavista", "Greenboro", "Sunnyside" ]

biblios = ["Surcursalle " +  bib + " * " for bib in biblio]

result = ''.join(biblios)

print( result * 40)

guinslym

'Option Explicit





        
        

Sub Retrieve_http()

guinslym

#!/bin/sh
# https://askubuntu.com/questions/519/how-do-i-write-an-application-install-shell-script
# https://get.docker.com/
# https://github.com/docker/docker-install

wget https://get.docker.com/
mv index.html install_docker.sh
bash install_docker.sh

https://stackoverflow.com/a/38776946/2581266

guinslym

#https://docs.docker.com/install/linux/docker-ce/ubuntu/#install-docker-ce-1
sudo apt-get update
sudo apt-get -y install \
    apt-transport-https \
    ca-certificates \
    curl \
    software-properties-common
sudo apt-get remove docker docker-engine docker.io
curl -fsSL https://download.docker.com/linux/ubuntu/gpg | sudo apt-key add -
sudo apt-key fingerprint 0EBFCD88

guinslym

Public Function InsertMachineHoursRecord() As Boolean

Dim SaveTime As Date
Dim db As DAO.Database
Dim rs As DAO.Recordset

'//Variables used to hold field values
Dim strEmployee = Me.cboEmployee.Value
Dim dtmEventDate = Me.txtDate.Value
Dim lngEventTypeID = Me.cboType.Value

guinslym

Private Sub Command3_Click()
    ImportMailPropFromOutlook
End Sub

Sub ImportMailPropFromOutlook()

    ' Code for specifing top level folder and initializing routine.

    ' Set up Outlook objects.
    Dim ol As New Outlook.Application

guinslym

Sub Retrieve_http()

'our Outlook folder- deifinitions
    Dim myItem As MailItem
    Dim myFolder As Folder
    Dim myNamespace As NameSpace
    Set myNamespace = Application.GetNamespace("MAPI")
    'put your folders name here
    '1st one is store folder which should refer to [email protected]
    'second is possibly 'inbox folder'

guinslym

Sub List_All_NameSpace_Folders()
'https://stackoverflow.com/questions/16225353/outlook-macro-to-collect-extract-data-from-subject-field-of-numerous-messages

    Dim myNS As NameSpace
    Dim myFolder As MAPIFolder
    Dim mySubfolder As MAPIFolder
    Dim strFolderList As String
    strFolderList = "Your Outlook NameSpace contains these folders:" _
    & vbCr & vbCr
    Set myNS = Application.GetNamespace("MAPI")

guinslym

from datetime import datetime
import random
import time


def create_random_datetime(from_date, to_date, rand_type='uniform'):
    """
    Create random date within timeframe.

    Parameters

guinslym

<script type="text/javascript" src="//d3js.org/d3.v3.min.js"></script>
<script type="text/javascript" src="//cdn.jsdelivr.net/cal-heatmap/3.3.10/cal-heatmap.min.js"></script>