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"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
