28. marts 2006 - 12:22Der er
5 kommentarer og 1 løsning
Formattering af strenge
Jeg skal have formatteret en streng så den kan bruges i en xlapp.ActiveWorkbook.SendMail
Funktionen her sætter de på en liste valgte e-mail adresser sammen til en tekststreng, men på formen "minmail@mail.dk, minandenmail@mail.dk" For Each varItem In lstModtagere.ItemsSelected Modtagere = Modtagere & lstModtagere.Column(2, varItem) & ", " Next varItem
Funktionen SendMail forventer et array på formen "minmail@mail.dk", "minandenmail@mail.dk"
Modtagere = Left(Modtagere,Len(Modtagere)-1) ' Fjerner det sidste komma Modtagere = Replace (Modtagere, "," ,""",""") ' Sætter gåseøjne rundt om kommaer Modtagere= """" & Modtagere & """" ' Sætter første og sidste gåseøje ;o)
With xlapp.ActiveWorkbook .Sheets(1).Copy .SaveAs FileName:=Filnavn .SendMail Array(Modtagere), Ordrenummer 'Array'et skal være på formen "mail1@mail.dk", "mail2@mail.dk", "mail3@mail.dk" osv. .Close SaveChanges:=False End With
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
