Microsoft Excel

Herbers Excel/VBA-Archiv

Zellbereich E-Mail Versand

Betrifft: Zellbereich E-Mail Versand von: Ines
Geschrieben am: 03.04.2014 20:19:18

Hallo!

Ich möchte aus Excel einen Zellbereich via Outlook versenden.Dazu habe ich im Netz folgenden Code gefunden:

Sub Send_OriginalRange_from_Excel()
Range("a1:g20").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
      .Introduction = "Hallo & vbCrLf & "Die Zahlen:"
      .Item.To = "meinname@xxx.de"
      .Item.Subject = "Zahlen"
      .Item.Send
   End With
End Sub
Funktioniert auch super. Ich möchte das aber gerne noch verbessern.
Was ich noch gerne hätte:

1. Den Text im Body hätte ich gerne im Schrifttyp Arial. Ist eigentlich auch in Outlook so eingestellt. Geht das?
2. Am Ende der Mail würde ich gerne meine Signatur einfügen?
3.Ich würde gerne das Senden der Mail erst zulassen, wenn ich die Schaltfläche Senden in Outlook betätige. Was muss ich ändern?

  

Betrifft: Idee für 3. von: Oberschlumpf
Geschrieben am: 03.04.2014 20:53:10

Hi Ines

ändere mal diese Zeile

.Item.Send

um in

.Item.Show

Hilfts?

Ciao
Thorsten


  

Betrifft: AW: Zellbereich E-Mail Versand von: Spenski
Geschrieben am: 03.04.2014 21:08:54

huhu

zu 2.

probier mal :

Sub Send_OriginalRange_from_Excel()
 Range("a1:g20").Select
 ActiveWorkbook.EnvelopeVisible = True
 With ActiveSheet.MailEnvelope
     .GetInspector
       .Introduction = "Hallo & vbCrLf & "Die Zahlen:"
       .Item.To = "meinname@xxx.de"
       .Item.Subject = "Zahlen"
       .Item.Send
    End With

guss
christian
 End Sub



  

Betrifft: siehe text^^ von: Spenski
Geschrieben am: 03.04.2014 21:09:57

ohne das gruss christian natürlich^^


  

Betrifft: AW: siehe text^^ von: Oberschlumpf
Geschrieben am: 03.04.2014 21:24:00

Hi christian

Und wieso bauste da jetzt wieder Item.Send ein?

Ciao
Thorsten


  

Betrifft: AW: siehe text^^ von: Spenski
Geschrieben am: 03.04.2014 21:29:55

Hi thorsten

War ja nur auf Frage 2 bezogen.
Wenn item.show so funktioniert wie erwünscht dann natürlich mit item.show

MfG
Christian ;)


 

Beiträge aus den Excel-Beispielen zum Thema "Zellbereich E-Mail Versand "