2022-05-10

CakePHP 2をphp7で動かす？

▼現在動作しているバージョンの確認
以下(/lib/Cake/VERSION.txt)のファイルの一番最後の行を見るんだよ！

////////////////////////////////////////////////////////////////////////////////////////////////////
// +--------------------------------------------------------------------------------------------+ //
// CakePHP Version
//
// Holds a static string representing the current version of CakePHP
//
// CakePHP(tm) : Rapid Development Framework (http://cakephp.org)
// Copyright (c) Cake Software Foundation, Inc. (http://cakefoundation.org)
//
// Licensed under The MIT License
// Redistributions of files must retain the above copyright notice.
//
// @copyright     Copyright (c) Cake Software Foundation, Inc. (http://cakefoundation.org)
// @link          http://cakephp.org
// @package       Cake
// @since         CakePHP(tm) v 0.2.9
// @license       http://www.opensource.org/licenses/mit-license.php MIT License
// +--------------------------------------------------------------------------------------------+ //
////////////////////////////////////////////////////////////////////////////////////////////////////
2.7.0-dev　★ここだ！

で、動作環境は php5.3以上って書いてあるな、、 7で動作させるためには、以下からLIBを持ってこいって書いてあるけど、もうgithubには無いみたいだな、、

https://github.com/cakephp/cakephp/tree/2.x

https://git.ethercap.com/cuizhihua/cakephp/tree/2.x/lib/Cake

2022-05-02

迷惑メール：VBA:outlook

「えきねっと」と「三井住友銀行顧客サービス」からも迷惑メールが来るので、Sender.Address もチェックした方が良いみたいだ

Sender: jreast@an8az1.shop
Message-ID: <20220502084739850440@an8az1.shop>
From: "eki-net" <info@eki-net.com>

Debug.Print objItem.Sender
smbc-card-customer9@tpghnbw.cn
三井住友銀行顧客サービス      

Debug.Print objItem.Sender.Address
smbc-card-customer9@tpghnbw.cn

Debug.Print objItem
【三井住友カード】カードの支払い口座に問題がある

2022-04-28

VBA: 偽amazonからの迷惑メールを何とかしてください！

▼タコユキへ、何とかしてください。

悪いやつ→: From: "Amazon" mxdik@esv.org

なので、差出人が"Amazon" で、アドレスが　＠amazon.co.jpでなければ、迷惑メールに移動すれば良いんだよね？

以下じゃだめなの？これって、OUTLOOKのフィルタでは書けないの？

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
On Error Resume Next
    
    Dim myNamespace: Set myNamespace = GetNamespace("MAPI")
    Dim objItem  As Object
    Set objItem = myNamespace.GetItemFromID(EntryIDCollection)

    If objItem.SenderName = "Amazon" And _
        Not InStr(objItem.SenderEmailAddress, "@amazon.co.jp") Then
        
        ' メールアイテムに変換
        Dim objMail As MailItem: Set objMail = objItem
 
        ' 受信トレイの下の「meiwaku」フォルダーへ移動
        objMail.Move Session.GetDefaultFolder(olFolderInbox).Folders("meiwaku")
    End If
    
End Sub