[Techinfo] VBS macro guruk help

[Kiss Zsolt]

Sziasztok!

Az alábbi scripttel tudok titkos másolatot hozáadni az összes kimenő
levelemhez. Ez eddig tökéletesen tette a dolgát, de most kettő címet kellene
beletenni. Ha ;-el elválasztva utána írtam, akkor kiírta, hogy nem tudja
feloldani, mert ezek szerint azt amit be akar szúrni azt egy címnek
gondolja. Hogyan írjam át két címre?


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next
    
    ' #### USER OPTIONS ####
    ' address for Bcc -- must be SMTP address or resolvable
    ' to a name in the address book
    strBcc = "bcc1cim at suli.hu"
    
    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "Could not resolve the Bcc recipient. " & _
                 "Do you want still to send the message?"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                 "Could Not Resolve Bcc Recipient")
        If res = vbNo Then
            Cancel = True
        End If
    End If
    
    Set objRecip = Nothing
End Sub

Amit gondoltam (kipróbálni nem tudom csak hétfőn, de hátha addig aki profi
megmondja a tutit és nem kell küszködnöm.

Az strbcc=-től induló részt a 2. end if-el bezárólag megismételném, csak
persze átírnám másodjára a bcc2 címre. Ez akkor vajon azt csinálná, hogy
beírja az 1-es címet, feloldja, beírja a 2-es címet, azt is feloldja, vége a
macronak és indul a küldés?

Lehet nem jó gondolat, sosem írtam még macrot :) Hogyan lehetne ezt
frappánsan megoldani?

Zsolt