EWS Powershell: Set HomePageURL

Question

I'm so close its frustrating
Building a powershell app to add a folder to a mailbox and set it with a homepage. I can create the folder and my code below sets the PR_FOLDER_WEBVIEWINFO property, but its not setting the correct value. If looking at MFCMapi the value I'm setting appears
under "Value (alternative text)" rather than "Value".... 
Here's the code, the $Encoded URL value is valid as if I input this directly into MFCMapi then the 'homepage' appears...  
$EncodedURL = "020000000100000001000000000000000000000000000000000000000000000000000000000000002000000068007400740070003A002F002F00620069006E0067002E0063006F006D000000"
$bqByteArray = [System.Text.Encoding]::ASCII.GetBytes($EncodedURL)
$PR_FOLDER_WEBVIEWINFO = new-object Microsoft.Exchange.WebServices.Data.ExtendedPropertyDefinition(14047,[Microsoft.Exchange.WebServices.Data.MapiPropertyType]::Binary)
$NewFolder.SetExtendedProperty($PR_FOLDER_WEBVIEWINFO,$bqByteArray)
$NewFolder.update()
It's almost as if my $EncodedURL should be the byte array, but if I try to use
$NewFolder.SetExtendedProperty($PR_FOLDER_WEBVIEWINFO,$EncodedURL) it just fails.... A little guidance please

Answer 1

Hmm, Get errors with your code. Here's something I've put together. Very similar and wished I had seen yours a bit earlier. Would have made the task easier. Working on adding Get-Mailbox for all mailbox users.
Open to suggestions.
# Script is designed to create a new folder in Outlook and add a homepage URL
# Tested using Exchange Server 2007SP1/2010SP1
# Works for a single user only. Future designs to apply to Get-Mailbox users.
# This file should be named with a *.ps1 extension to run. If need be, rename the file.
# It is assumed this file and the associated dll are located in C:\Temp\, else
# Update the $LogFile and $dllpath accordingly
# User Settings
$newFolderName = "Google"
$CustomURL = "http://google.co.nz"
$MailboxName = "[email protected]"
$MailboxPwd = "pwd"
$Domain = "" #Not Used yet
$MbAdmin = "" #Not Used yet
$MbAdminPwd = "" #Not Used yet
$dllpath = "c:\temp\Microsoft.Exchange.WebServices.dll"
[string]$LogFile = "C:\Temp\Log.txt"   # Path of the Log File
Import-Module $dllpath
[string]$info = "White"                # Color for informational messages
[string]$warning = "Yellow"            # Color for warning messages
[string]$error = "Red"                 # Color for error messages
#Setup the service for the appropriate version of Exchange
#$Service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2007_SP1)
$Service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP1)
#$Service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP2)
#$Service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2013)
#Set login credentials
#$Service.Credentials = New-Object System.Net.NetworkCredential($MailboxName,$MailboxPwd,$Domain)
$Service.Credentials = New-Object Microsoft.Exchange.WebServices.Data.WebCredentials($MailboxName,$MailboxPwd)
#Use hardcoded CAS Server URL or use Autodiscover
#$service.Url= new-object Uri(http://CAS-Server/EWS/Exchange.asmx)
$Service.AutodiscoverUrl($MailboxName,{$true})
Write-host "EWS URL set to :" $Service.Url -foregroundcolor $info
#Connect to users MsgFolderRoot and search for $newFolderName
$RootFolderID = new-object Microsoft.Exchange.WebServices.Data.FolderId([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot,$MailboxName)
$RootFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($Service,$RootFolderID)
$FolderView = New-Object Microsoft.Exchange.WebServices.Data.FolderView(1) #Custom value. Enable the following line for +10
#$FolderView.Traversal = [Microsoft.Exchange.WebServices.Data.FolderTraversal]::Deep
$SfSearchFilter = new-object Microsoft.Exchange.WebServices.Data.SearchFilter+IsEqualTo([Microsoft.Exchange.WebServices.Data.FolderSchema]::DisplayName,$newFolderName)
$findFolderResults = $service.FindFolders($RootFolderID,$SfSearchFilter,$FolderView)
# If  $newFolderName found, say so.  
if ($findFolderResults.TotalCount -ne 0){
 Write-host "Folder already exists for" $MailboxName -foregroundcolor  $info
 #Delete the folder ? ?
 #$newFolderName.delete([Microsoft.Exchange.WebServices.Data.DeleteMode]::SoftDelete) #DeletedItems
 #$newFolderName.delete([Microsoft.Exchange.WebServices.Data.DeleteMode]::HardDelete)
# DON'T CHANGE BELOW THIS LINE
# If $newFolderName not found create it and set homepage URL
if ($findFolderResults.TotalCount -eq 0){
    Write-host $MailboxName ": Folder not found... Creating" -foregroundcolor  $warning >> $Logfile
 # Create the folder
 $NewFolder = new-object Microsoft.Exchange.WebServices.Data.Folder($service)
 $NewFolder.DisplayName = $newFolderName
 $NewFolder.Save($RootFolderID) 
 # Do the real work!
 # Generate HEX of URL
 $CharArray = $CustomURL.ToCharArray();
 $homepagebytes = $null
 Foreach ($Char in $CharArray) {$homepagebytes = $homepagebytes + [System.String]::Format("{0:X}", [System.Convert]::ToUInt32($Char))+"00"} 
 # String together the value for PR_FOLDER_WEBVIEWINFO
 $dwversion = "02"
 $dwType = "00000001"
 $dwFlags = "00000001"
 $dwUnused = "00000000000000000000000000000000000000000000000000000000"
 $cbDataSizePadding = "000000"
 $cbDataSize = (($homepagebytes.length / 2)+2).ToString($x)
 $cbDataSizePadding2 = "000000"
 $homepagebytesPadding = "0000"
 $HexURL = $dwversion + $dwType + $dwFlags + $dwUnused + $cbDataSizePadding + $cbDataSize + $cbDataSizePadding2 + $homepagebytes + $homepagebytesPadding
 # $HexURL = "020000000100000001000000000000000000000000000000000000000000000000000000000000002000000068007400740070003A002F002F00620069006E0067002E0063006F006D000000"  
 # Convert $HexURL to a Bytearray then Base64
 $bytes2 = @($HexURL -split '([a-f0-9]{2})' | foreach-object { if ($_) {[System.Convert]::ToByte($_,16)}})
 $Base64URL = [System.Convert]::ToBase64String($bytes2);
 # $Base64URL = "AgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABoAHQAdABwADoALwAvAGIAaQBuAGcALgBjAG8AbQAAAA=="
 # read/write the URL into $PR_FOLDER_WEBVIEWINFO
 $bytes  = [System.Convert]::FromBase64String($Base64URL);
 $PR_FOLDER_WEBVIEWINFO = new-object Microsoft.Exchange.WebServices.Data.ExtendedPropertyDefinition(14047,[Microsoft.Exchange.WebServices.Data.MapiPropertyType]::Binary)
 $NewFolder.SetExtendedProperty($PR_FOLDER_WEBVIEWINFO,$bytes)
 #Save
 $NewFolder.update() 
 Write-host "Created for" $MailboxName -foregroundcolor  $info >> $Logfile
 Write-host "Finished" -foregroundcolor  $info
# Credits to the following in no particular order:
# Plus many many more. Thanks to you all.