Lowyat.NET: Latest topics by byrnison

[WTS] Iphone 6 GOLD- 64gb (nego)

byrnison — Wed, 02 Sep 2015 15:21:21 +0800

Item(s): One(1) Iphone 6 GOLD- 64gb

Package includes: The phone only

Price: RM2600 (nego)

Warranty: Until JAN2016

Dealing method: COD in JB area / Pos (pay by buyer)

Location of seller: JB

Contact method/details: whatsapp: +6597235733 / email:csten0617@gmail.com / PM

Age of item: 9months

---

Item(s) conditions: 100% Perfect with no scratch or dent, because only used for one month and kept in box until now

Picture: [attachmentid=4973630][attachmentid=4973631][attachmentid=4973633][attachmentid=4973634][attachmentid=4973635][attachmentid=4973637][attachmentid=4973638]

Reason for sale: Extra phone.

[WTS] Iphone 5S Gold- 64GB (Cheapest!)

byrnison — Thu, 27 Nov 2014 15:34:00 +0800

Item(s): The Iphone 5S GOLD- 64GB

Package includes: Everything just like new you buy. (box,charger,cable,headset)

Price: RM1600 (nego gao gao until you happy)

Warranty: No more

Dealing method: COD (permas jaya, JB), Postage (pay by buyer)

Location of seller: JOHOR BAHRU (Permas)/Singapore

Contact method/details: PM, Whatsapp( +65 97235733), email: csten0617@gmail.com

Age of item: 1 year plus

---

Item(s) conditions: 10/10 (nice nice, keep in casing and screen protected from day 1 of using, never dropped before, never repair before, all working very very well)

Picture: whatsapp me and request from me.

Reason for sale: Extra hand phone. Too many phone.

[WTS] Iphone 6Plus Gold (16GB)

byrnison — Thu, 18 Sep 2014 09:53:53 +0800

Item(s): 2 units of Iphone 6 Plus Gold (16gb) ....GRAB IT NOW first!!!

Package includes: Everything new, sealed in box (estimated delivery from apple SG: 22/9/2014 ~29/9/2014)

Price: PM to ask

Warranty: 1 year by Apple SG

Dealing method: COD or pos(postage by buyer)

Location of seller: JB or SG

Contact method/details: whatsapp +65 97235733/ email: caeser_authur@hotmail.com/ PM

Age of item: 100% new and sealed

---

Item(s) conditions: new

Picture:

Reason for sale: extra set

[WTS] Tommy Hilfiger Shirts

byrnison — Fri, 18 Jul 2014 22:28:51 +0800

Item(s): The Shirts

Package includes: The shirts that you choose

Price: RM180 (inclusive of postage)

Warranty: NA

Dealing method: POS only

Location of seller: JB

Contact method/details: PM or email (csten0617@gmail.com)

Age of item: NEW

---

Item(s) conditions: Perfect

Picture:[attachmentid=4059867][attachmentid=4059868][attachmentid=4059869][attachmentid=4059870]

Reason for sale: Earn Some $ after US trip

Outlook Macros

byrnison — Tue, 08 Jul 2014 12:45:21 +0800

Hi,

I am trying to custom made my MS outlook function, what i need is to have functions below to work in 1 time:
1) Reply all with attachment
2) Reply all with prefix/custom subject title.

I found both macros and tried by inserting them into outlook VBA, but it only works independently, means either 1st function work, or 2nd function work, or 1st work then 2nd work. But both cannot work parallel.
May i know who knows how to join/merge/combine the 2 macros into one, and make the functions into one by pressing only one ribbon in outlook?

Extra information:
Function 1 macros:
Sub ReplyWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object

Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.Reply
CopyAttachments oItem, oReply
oReply.Display
End If

Set oReply = Nothing
Set oItem = Nothing
End Sub

Sub ReplyAllWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object

Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.ReplyAll
CopyAttachments oItem, oReply
oReply.Display

End If

Set oReply = Nothing
Set oItem = Nothing
End Sub

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application

Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select

Set objApp = Nothing
End Function

Sub CopyAttachments(objSourceItem, objTargetItem)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
strPath = fldTemp.Path & "\"
For Each objAtt In objSourceItem.Attachments
strFile = strPath & objAtt.FileName
objAtt.SaveAsFile strFile
objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
fso.DeleteFile strFile
Next

Set fldTemp = Nothing
Set fso = Nothing
End Sub

Function 2 macros:
Sub CustomReply()
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = CreateItem(Mail)
Set myReply = oMail.Actions("Reply").Execute

With myReply
Dim Reply As MailItem
.Subject = "release-authorised:"
.Display
End With

Set oMail = Nothing
Set oOutlook = Nothing
End Sub

[WTA] Master Bedroom Extension

byrnison — Mon, 09 Jun 2014 15:45:35 +0800

[attachmentid=4006388]

As per drawing shown above, wall with height of 10ft, how much will this renovation cost? The house is in JB, anyone or any contractor keen to give me a quote of doing this renovation?

Taobao/China Website Purchase sharing

byrnison — Tue, 18 Mar 2014 11:01:19 +0800

Hi,

Anybody get stuffs from Taobao or any other china website? Can share your purchase items and how you think about price and quality of stuffs from China.
Any good agent for getting stuffs from Taobao to recommend?

Remark: Please share only house renovation or household usage items.

power supply problem

byrnison — Tue, 14 Oct 2008 14:00:23 +0800

my pc is using raidmax power supply...and my graphis card is using ati radeon hd 2600xt... how come my graphic card become very hot after i change this raidmax psu?? izzit because the power supplied is not enough???