[Techinfo] VBS macro guruk help

[Schveibert Robert]

a vesszőt "," próbáltad már???

Üdvözlettel
––––––––––––––––––––––––––––––
          Schveibert Róbert
          Mérnök-Informatikus
        Okleveles Mérnöktanár


Kiss Zsolt <rgl at hb.sulinet.hu> ezt írta (időpont: 2018. dec. 15., Szo,
23:56):

> 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
>
>
> _______________________________________________
> Techinfo mailing list
> Techinfo at lista.sulinet.hu
> Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
> Illemtan: http://www.szag.hu/illemtan.html
> Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
>
--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20181216/f9c5c6ed/attachment.html>