15. august 2006 - 15:41Der er
10 kommentarer og 2 løsninger
Sende mail fra excel med tekst
Her på siden har jeg ledt mig frem til følgende kode til afsendelse af mail fra excel:
Sub SendPost() If Application.MailSystem <> xlNoMailSystem Then Modtager = "test@test.dk" Sheets("blanketsend").Copy With ActiveWorkbook .SendMail _ Recipients:=Modtager, _ Subject:="Fleksjob refusion" .Close SaveChanges:=False End With Application.MailLogoff Else MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse" End If MsgBox "Mail sendt til " & Modtager End Sub
Koden virker godt nok bortset fra at jeg ikke kan se hvordan jeg får indsat tekst i selve mailen. Jeg kunne også godt tænke mig at mailen kom frem på skærmen inden afsendelse, så jeg slap for den automatiske sikkerhed der er indbygget i windows (har set det kan lade sig gøre access)
Ja - der er vist noget med at du ikke har muligheden, med den kode du har lavet!
Prøv at lege lidt med denne her:
Sub SendPost() If Application.MailSystem <> xlNoMailSystem Then ActiveSheet.Copy Modtager = "test@test.dk" With ActiveWorkbook .HasRoutingSlip = True With .RoutingSlip .Recipients = Modtager .Subject = "Fleksjob refusion" .Message = "SKRIV DIN BESKED HER" .ReturnWhenDone = True
End With .Route .Close SaveChanges:=False End With Application.MailLogoff msgbox("Mail sendt til " & Modtager), vbinformation, "Mail sendt" Else MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse" End If MsgBox "Mail sendt til YYY" End Sub
Det med "Body" var fra noget kode jeg har - men det er en string.. så det er ikke vb! mht ":=" så er det rent faktisk også vb, afhængigt af koden - nedenstående er taget fra Excels hjælp:
ActiveWorkbook.SendMail recipients:="Jean Selva"
Hvor du netop bruger := - men det er ligegyldigt...
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.
