Supportnet / Forum / Tabellenkalkulation

Guten Tag kann mir wer helfen bei folgendem Problem. Ich möchte eine geöffnete Excelmappe durch klicken einer Schaltfläche an mehrer Entfpänger senden deren Emailadresse in Feldern in diesem Excel stehen, zusätzlich sollte noch eine Betreffszeile erzeugt werden. Das ganze gelingt mir bis jetzt nur mit einer Emailadresse sobald ich versuche eine weitere unter „arg1“ einzutragen, siehe Beispiel, kann Outlook nicht erkenne dass es sich um 2 Emailadressen handelt. Hat wer eine Idee wie ich vorgehen kann? Besten Dank für Feedbacks. Gruss Manuc --------------------------------------------------------------------------------------- Beispiel: Sub Schaltfläche31_BeiKlick() Application.Dialogs(xlDialogSendMail).Show _ arg1:=ActiveWorkbook.ActiveSheet.Range("J36") & ActiveWorkbook.ActiveSheet.Range("J40"), _ arg2:="test" & (" / ") & ActiveWorkbook.ActiveSheet.Range("A70") End Sub

Hi Manuc,

schau mal in die Onlinehilfe unter Recipients-Eigenschaft
nach. Vielleicht hilft dir das weiter.

Bis später,
Karin

Etwas spät, aber ich wollte sowas auch machen und das raus gefunden:

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogSendMail).Show _
arg1:=ActiveWorkbook.ActiveSheet.Range("A1:A20"), _
arg2:="test" & (" / ") & ActiveWorkbook.ActiveSheet.Range("A70")

End Sub

Damit konnte ich an alle senden, die in der Liste standen. Leere Zellen werden vernachlässigt.


Gruß
Oxyg3n

• XP- kann keine Emails versenden :-(
• PHP Befelh um Newsletter per Mail zu versenden
• leere Excelmappe öffnen
• emailadressen sichern