kuro1981

#From pverspeelt/Quantfunctions
#https://github.com/pverspeelt/Quantfunctions

#パッケージ・インストール
pack <- c("quantmod", "dygraphs", "htmltools", "magrittr", "TTR", "xts", "ggplot2", "gridExtra", "lubridate")
install.packages(pack[!(pack %in% unique(rownames(installed.packages())))], repos="https://cloud.r-project.org/")

#ロード
for(n in 1:length(pack)){ eval(parse(text = paste0("library(", pack[n], ")"))) }; rm("n", "pack")

kuro1981

################################################################################
# forked from https://gist.github.com/mp4096/1a2279ec7b3dfec659f58e378ddd9aee
# Modified to:
# 1) Create PDF files beside the converted PPT files
# 2) Skip already converted PPT files (if a PDF file with the same name already
#    exists)
################################################################################
# Batch convert all .ppt/.pptx files encountered in folder and all its subfolders
# The produced PDF files are stored in the invocation folder
#

kuro1981

var DriveFolderRootId = "XXXXXXXXXXXXXX"; // 自身の環境にあわせて設定

function CreatFolderRecusive(parentFolder:GoogleAppsScript.Drive.Folder, layerdFolderName:Array<string>, nestidx:number=0) {
    var targetFolder = parentFolder.getFoldersByName(layerdFolderName[nestidx]);
    if (layerdFolderName.length <= nestidx) {
        return parentFolder.getId();
    }
    if (targetFolder.hasNext()) {
        return CreatFolderRecusive(targetFolder.next(), layerdFolderName, nestidx + 1 );
    } else {

kuro1981

sub mailtest()
    Call MailSend("test", "2222", True)
End Sub
 
Sub MailSend(Subj As String, Msg As String, IsSSL As Boolean)
   '///////////////////////////////////////
'//SMTP Configuration Settings
    
        Dim FileName As String
        Dim iMsg As Object