2021/08/06

CashMagnet 收到獎金囉

 上次累績到5500點時, 就申請出金5美元,剛申請後,就是一直在pending的狀況,大概在一個月左右,就看到paypal有錢入帳了,加減賺。

2021/08/05

OUTLOOK2010 在列印郵件時,裡面的圖檔不會顯示 印不出來

 有台新電腦的outlook2010,如果郵件的內文有圖在裡面,需要列印時,預覽列印就會發現只有文字,但圖片的地方是空白的。

不管哪封信都一樣,把Office移掉重裝也沒用,網路上也沒查到什麼有空的資訊。

最後是重新建立一個Outlook的顯示設定檔後,才恢復正常,很特別的一個問題。



In Outlook 2010, if the email contains images and you encounter issues where the images do not appear or print when previewing the print layout, it can be a peculiar problem. Here's a suggested solution:


Close Outlook 2010 completely.

Open the Control Panel on your computer.

Search for "Mail" or "Mail (32-bit)" and click on it to open the Mail Setup dialog box.

In the Mail Setup dialog box, click on the "Show Profiles" button.

Select your Outlook profile from the list and click on the "Remove" button.

Note: This will remove your existing Outlook profile, so ensure you have a backup of your email data if necessary.

Once the profile is removed, close the Mail Setup dialog box and reopen Outlook.

Outlook will prompt you to create a new profile. Follow the on-screen instructions to set up a new profile.

Once the new profile is created, test printing an email with images to see if the issue is resolved.

By creating a new Outlook profile, you are essentially starting with a fresh configuration, which can help resolve any settings-related issues that may be causing the problem with images not appearing or printing correctly in Outlook 2010.

2021/08/04

8月開始將小台一次下兩口單,第一次進場就GG

 小台的當沖策略目前來看就很穩定,交易機會一個月可能兩三筆,每次下一口單,小小的賺。

八月決定開始放大到兩口,今天第一次有機會進場,停損剛好還遇到比較大的範圍,沒想到~~不到半小時就打到停損,噴了快5千塊.............

每次放大口數,好像就會這樣。

2021/07/30

海期2021年7月績效3勝5敗

 這個月的當沖賺了快90美,不錯哦,是這個策略這三個月來賺最多的一次。

就穩穩的做吧。





2021/07/27

Acrobat PDF Reader 另存新檔時 都一片空白

 有同仁反應如果用Acrobat PDF Reader 開啟PDF檔,想要另存新檔時,都會出現一個空白視窗,裡面什麼都沒有,不管什麼PDF檔都一樣。

這個是因為該電腦之前設定過Adobe Creative Cloud,造成Acrobat PDF Reader 另存時會去檢查線上儲存空間。

這時只要去偏好設定裡的一般,把"儲存檔案時顯示線上儲存空間"勾勾取消就沒問題了。








因為一般電腦沒有設定過Adobe Creative Cloud,所以就算這個設定預設是啟用的,也不會造成無法另存的問題。



開啟PDF檔都會出現 "文件正在準備以供閱讀,請稍候"

 使用者反應最近用Acrobat的程式開啟PDF時,都會出現"文件正在準備以供閱讀,請稍候"的視窗,有時後跑很久還沒當掉。









原來是一個設定造成的,在偏好設定裡的朗讀選項中,選擇"僅閱讀目前可見頁面"就可以解決這個問題了。




ASUS 工作站電腦有過電 無法正常開機

有一台閒置一陣子的ASUS工作站,要拿出來整理發給同仁使用,但按下開機都沒反應。

打開機殼看了一下,主機板上面是有一些指示燈,都有亮,表示POWER是正常有過電的,再繼續看了一下主機板上,蠻神奇的,有個power跟reset的鈕,上面都有亮燈,然後就按看看,電腦依然沒正常開機,搞不太那兩顆鈕有什麼用。









後來把另一台工作站的Power交換,兩台都可以開,這就妙了,仔細研究了一下兩顆Power的差異發現,除了一個400瓦,一個500瓦外,另一個差異就是一個是單路,另一個是雙路的Power。

這時我就以為應該是主機有可能不支援其中一種Power吧。

隔天又在整理這幾台電腦時,本來交換後可以用的,卻又不能用了,但也因此讓我發現正常的原因,原來是我插錯線了。

主機板上有一個8pin的孔要接線,但有的Power有提供多組8孔的線可以接,但這8孔的線,其實有分成兩種,卻剛好都可以接上主機板。





從下圖1跟2可以看到,1個是ATX12V,1個是PCI-E,兩個是不同的,其實主機板上那個接孔旁邊有寫那是ATX,但Power上面的線沒寫,然後兩種線又沒做防呆都可以插上上,就這麼陰錯陽差,接錯還是有通電,但無法開機。
把線插對後,就沒問題了。

至於主機板上的power跟reset鈕,其實就跟電腦正面的power跟reset鈕一樣功能。





2021/07/24

台指7月績效~小台2勝4敗

 這個月交易機會變多,但開高走低,一開始先賺,後面開始賠。

最後也是小賺1千6左右而已,今年看來連去年一半的績效都達不到了。



2021/07/23

QQQ漲漲漲 未實現損益快10%囉

 4/12 開始慢慢買QQQ,一開始其實沒什麼動,後來還有點往下殺,反正就下殺就多買一點,往上漲就少買一點,都是買很少的零股,到現在3個月了,也才買快2股。

雖然很少,但看到它最近一直漲,目前帳面未實現獲利快10%了,也是蠻爽的,就繼續慢慢買吧,希望它能一直穩定向上。



outlook快速開啟多個pst檔

 outlook如果要開啟pst檔,有點麻煩,因為一次只能開啟一個,但偏偏有的user有超多pst檔,所以在換電腦的時後非常麻煩。

網路上有人有分享用powershell去一次把所有pst做掛載,是可行的,但偏偏就是遇到有一台電腦執行時會失敗,所以就想找找有沒有其他方式。

沒想到還真的有,就是用vba去執行,方法如下:

在outlook的畫面中,按下"alt + f11",然後就會開啟一個vba的編輯畫面,然後將下列的程式碼碼上,記得在第二個的地方,要把路徑改成你的pst檔案的資料夾路徑,然後執行,就成功了。

Sub BatchOpenMultiplePSTFiles()

Call LoopFolders("E:\")

MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"


End Sub


Sub LoopFolders(strPath As String)

Dim objFileSystem As Object

Dim objFolder As Object

Dim objFile As Object

Dim objPSTFile As Object


Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFileSystem.GetFolder(strPath)


For Each objFile In objFolder.Files

strFileExtension = objFileSystem.GetExtensionName(objFile)

If LCase(strFileExtension) = "pst" Then

Set objPSTFile = objFile

Outlook.Application.Session.AddStore (objPSTFile.Path)

End If

Next


If objFolder.SubFolders.Count > 0 Then

For Each objSubFolder In objFolder.SubFolders

If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then

LoopFolders (objSubFolder.Path)

End If

Next

End If

End Sub