send CC automatically

Hi all,
I want to send someone a Cc copy whenever I send an email to someone else
(basically I want to send my self a copy at another email address). How do
I send a cc copy automatically, without having to type in the CC email
address? No offense to anyone, but this feature is available on the
Thunderbird email; is there something similar in Outlook Express?
Thanks

Open a new message window and enter the address you want in the CC field. or
BCC if you don't want the recipient to see it, then File | Save As and save
it as an .eml file to the Desktop.

Now when you want to send this type of message, just click on the icon on
the Desktop and the header will be already filled in. You can drag the icon
to the Quick Launch toolbar also if you wish.
--
Bruce Hagen
MS-MVP Outlook Express
~IB-CA~

"PeterInMN" wrote in message
...
Hi all,
I want to send someone a Cc copy whenever I send an email to someone else
(basically I want to send my self a copy at another email address). How
do I send a cc copy automatically, without having to type in the CC email
address? No offense to anyone, but this feature is available on the
Thunderbird email; is there something similar in Outlook Express?
Thanks

"PeterInMN" wrote in message
Hi all,
I want to send someone a Cc copy whenever I send an email to someone else
(basically I want to send my self a copy at another email address). How do
I send a cc copy automatically, without having to type in the CC email
address? No offense to anyone, but this feature is available on the
Thunderbird email; is there something similar in Outlook Express?
Thanks

Here is a dangerous and tricky way.
The following HTA modify mail address in the registry to add bcc address.
I recommend testing on new mail account.

!-- FileName : AddBccOE.hta --
htmlhead
meta http-equiv=Content-Type content="text/html; charset=us-ascii"
titleAdd Bcc For OE Mail Account/title
hta:application scroll="no"/
script language=vbs
Const AccName = "Account Name", AdrName = "SMTP Email Address"
Const Root = "HKCU\", IdKey = "Identities", LUIDName = "Last User ID"
Const TKey ="Software\Microsoft\Internet Account Manager\Accounts"
Const aPat = "\w+@\w+\.\w+", bPat = "\r\nBcc: .+"
Dim WS, MainKey: window.resizeto 300,220
'
Sub Init()
Dim LUID, SubKeys, aSubKey, Key, Address, Account, aOption, E
Set WS = CreateObject("WScript.Shell")
LUID = WS.RegRead(Root & IdKey & "\" & LUIDName)
If LUID = "" Or _
LUID = "{00000000-0000-0000-0000-000000000000}" Then _
alert "Can't Specify User ID !!": window.close: Exit Sub
MainKey = IdKey & "\" & LUID & "\" & TKey
If EnumKey(Root & MainKey, SubKeys) 0 Then
MainKey = TKey
If EnumKey(Root & MainKey, SubKeys) 0 Then _
alert "Can't Read Accounts List !!": window.close: Exit Sub
End If
For Each aSubKey In SubKeys
Key = Root & MainKey & "\" & aSubKey
On Error Resume Next
Address = WS.RegRead(Key & "\" & AdrName)
E = Err.Number
On Error GoTo 0
If E = 0 Then
Account = WS.RegRead(Key & "\" & AccName)
Set aOption = document.createElement("option")
document.all.Accounts.options.add(aOption)
aOption.innertext = Account: aOption.Value = CStr(aSubKey)
End If
Next
SelChange
End Sub
'
Function EnumKey(ByVal MainKey, SubKeys)
Const Tmp = "Temp.reg"
Dim Buf, Pat, cRes, I, Keys()
Select Case Left(MainKey, 4)
Case "HKCR": MainKey = "HKEY_CLASSES_ROOT" & Mid(Mainkey, 5)
Case "HKCU": MainKey = "HKEY_CURRENT_USER" & Mid(Mainkey, 5)
Case "HKLM": MainKey = "HKEY_LOCAL_MACHINE" & Mid(Mainkey, 5)
End Select
With CreateObject("WScript.Shell")
.Run "Regedit /e " & Tmp & " """ & MainKey & """", 0, True
End With
With CreateObject("Scripting.FileSystemObject")
If .FileExists(Tmp) Then EnumKey = 0 Else EnumKey = 1: _
Exit Function
With .OpenTextFile(Tmp, 1, False, -2): Buf = .ReadAll: _
.Close: End With
.DeleteFile Tmp
End With
Pat = "\[" & Replace(MainKey, "\", "\\") & "\\([^\\\]]+)"
With New RegExp
.IgnoreCase = True: .Global = True: .Pattern = Pat
Set cRes = .Execute(Buf): ReDim Keys(cRes.Count - 1)
For I = 0 To cRes.Count - 1: Keys(I) = cRes(I).SubMatches(0): Next
End With
SubKeys = Keys: EnumKey = 0
End Function
'
Sub SelChange
Dim aSubKey, Address, Buf, I
aSubKey = document.all.Accounts.Value
Address = WS.RegRead(Root & MainKey & "\" & aSubKey & "\" & AdrName)
If TypeName(Address) = "String" Then
MailAdr.innertext = Address
Else
For I = 0 To UBound(Address): Buf = Buf & Chr(Address(I)): Next
MailAdr.innertext = Buf
End If
End Sub
'
Sub AddBcc()
Dim aSubKey, Address, BccAddress, Buf, I, L, BinAddr()
aSubKey = document.all.Accounts.Value
Address = MailAdr.innertext
BccAddress = document.all.BccAdr.Value
With New RegExp
.Pattern = aPat
If Not .Test(BccAddress) Then _
alert "Invalid Bcc Address !!": Exit Sub
.Pattern = bPat
If .Test(Address) Then _
alert "Bcc Already Exists !!": Exit Sub
End With
Buf = Address & "" & vbCrLf & "Bcc: " & BccAddress & Chr(0)
L = Len(Buf): ReDim BinAddr(L - 1)
For I = 1 To L: BinAddr(I - 1) = Asc(Mid(Buf, I)): Next
WS.RegDelete Root & MainKey & "\" & aSubKey & "\" & AdrName
RegWriteB Root & MainKey & "\" & aSubKey, AdrName, BinAddr
SelChange
End Sub
'
Sub RegWriteB(Key, Name, Data)
Const Tmp = "Temp.reg": Dim Buf, sData, I
Select Case Left(Key, 4)
Case "HKCR": Key = "HKEY_CLASSES_ROOT" & Mid(Key, 5)
Case "HKCU": Key = "HKEY_CURRENT_USER" & Mid(Key, 5)
Case "HKLM": Key = "HKEY_LOCAL_MACHINE" & Mid(Key, 5)
End Select
ReDim sData(UBound(Data))
For I = 0 To UBound(Data): sData(I) = Hex(Data(I)): Next
Buf = Buf & "REGEDIT4" & vbCrLf
Buf = Buf & "[" & Key & "]" & vbCrLf
Buf = Buf & """" & Name & """=hex:" & Join(sData, ",")
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(Tmp, 2, True, 0): .Write Buf: .Close: End With
With CreateObject("WScript.Shell")
.Run "Regedit /s " & Tmp, 0, True
End With
.DeleteFile Tmp
End With
End Sub
'
Sub DelBcc()
Dim aSubKey, Address, Key
aSubKey = document.all.Accounts.Value: Address = MailAdr.innertext
With New RegExp
.Pattern = bPat: If Not .Test(Address) Then Exit Sub
Address = .Replace(Address, "")
End With
Key = Root & MainKey & "\" & aSubKey & "\" & AdrName
WS.RegDelete Key: WS.RegWrite Key, Address, "REG_SZ": SelChange
End Sub
'
Sub Adr2Bcc
Dim Address: Address = MailAdr.innertext
With New RegExp
.Pattern = bPat: If .Test(Address) Then Exit Sub
End With
document.all.BccAdr.innertext = Address
End Sub
/script/headbody onload="Init"form
pAccount : select id="Accounts" onchange="SelChange"
/select/p
pEmail Address: span id="MailAdr"/span/p
pBcc Address : input type=text id="BccAdr"/p
p align=center
input type=button value=" Copy " onclick="Adr2Bcc"
    
input type=button value=" Add " onclick="AddBcc"
    
input type=button value=" Del " onclick="DelBcc"/p
/form/body/html

--
Miyahn
Microsoft MVP for Microsoft Office - Excel(Jan 2006 - Dec 2006)
https://mvp.support.microsoft.com/pr...4-83d372c269b4

"PeterInMN" schrieb im Newsbeitrag
...
Hi all,
I want to send someone a Cc copy whenever I send an email to someone else
(basically I want to send my self a copy at another email address). How
do I send a cc copy automatically, without having to type in the CC email
address? No offense to anyone, but this feature is available on the
Thunderbird email; is there something similar in Outlook Express?
Thanks