macro til send post

Normalt ; som adskillelse

ja - prøv.. jeg vil mene at at du skal lave noget i stil med

stRecipient = "test@excel.dk; test2@excel.dk"

du kan jo bare "plinge" .send så mailen ikke bliver sendt ('.Send)

Hej
måske skriver jeg det forkert, men det sender kun til den første adresse
mvh Henrik C

Den tilføjer jo emailadresser... prøv denne her i stedet for:

Sub SendEmail()
  Dim olApp As Object
  Dim olNameSpace As Object
  Dim olMail As Object
  Dim stRecipient As String ' FJERN DENNE HER
  Dim stAttachment As String
  ActiveWorkbook.Save
  stRecipient = "test@excel.dk" 'FJERN DENNE HER
  stAttachment = ThisWorkbook.FullName
  Set olApp = CreateObject("Outlook.Application")
  'hvis der skal bruges et logon
  'Set olNameSpace = olApp.GetNamespace("MAPI")
  'olNameSpace.Logon "UserName", "Password"
  Set olMail = olApp.CreateItem(0)
  With olMail
    .Subject = "test"
    .Recipients.Add "test@excel.dk 'SKRIV EMAIL DIREKTE HER"
    .Recipients.Add "test2@excel.dk 'SKRIV EMAIL DIREKTE HER"
    .Recipients.Add "test3@excel.dk 'SKRIV EMAIL DIREKTE HER"
    .Body = "med venlig hilsen test"

    .Attachments.Add stAttachment
    .Send
  End With
End Sub

Hej
Herligt, det funger bare som det skal, smid et svar så du kan få dine point's
mvh Henrik C

svar