[es] - Makro za slanje emaila

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

^{16.11.2010. u 14:48 - pre 163 meseci}

imam makro koji salje excel kao attach na odredjeni mail.

sad treba da saljem ne samo na jedan nego na vise. kako da napisem vise adresa, ja kako god da pokusam, ne funkcionise.

Code:
Sub Send1Sheet_ActiveWorkbook()
'Create a new Workbook Containing 1 Sheet (left most) _
and sends as attachment.

    'ThisWorkbook.Sheets(1).Copy

    Range("A4:F58").Select
    Selection.Copy
    Workbooks.Add Template:="Arbeitsmappe"
    Range("A2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
    Range("B10").Select

    Range("A1:F1").Select
    With Selection.Interior
        .Pattern = xlLightDown
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With



    Range("D1:D58").Select
    Selection.ClearContents
    Range("C1").Select


    With ActiveWorkbook
         .SendMail Recipients:="[email protected]", _
          Subject:="Guten Morgen" & " - " & Format(Date, "dd/mmm/yy")
         .Close SaveChanges:=False
    End With

    Windows("Euribor_neu.xlsm").Activate
    ActiveWorkbook.Close True

End Sub

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: Makro za slanje emaila

^{16.11.2010. u 15:27 - pre 163 meseci}

Kao parametar Recipients u metodi SendMail stavi

Code:
Recipients:= Array("[email protected]", "[email protected]", "[email protected]") , _

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu