VBA: E-Mail aus Excel

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich hab folgenden Code für Excel, um von dort eine E-Mail zu versenden:

Sub Send_OriginalRange_from_Excel()
Range(„A3:G35“).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = „Das ist der Einleitungstext.“ & vbCrLf & „mit einer zweiten Zeile“
.Item.To = „[email protected]“
.Item.Subject = „Die aktuellen Daten“
.Item.Send
End With
End Sub

Wie muss ich den Code verändern, dass statt den manuellen Eingaben für Einleitungstext, Adresse und Betreff dann Daten aus dem Excel-Blatt gezogen werden.

Also das z. B. E-Mail im Feld A5 steht, Betreff B5, etc.

Gruß
Sandro

#2

Wie muss ich den Code verändern, dass statt den manuellen
Eingaben für Einleitungstext, Adresse und Betreff dann Daten
aus dem Excel-Blatt gezogen werden.
Also das z. B. E-Mail im Feld A5 steht, Betreff B5, etc.

Hallo Sandro,

welche XL-Version hast du denn?
Mein XL2000 kennt kein .MailEnvelope.

Sub Send\_OriginalRange\_from\_Excel()
Range("A3:G35").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
 .Introduction = Range("b5")
 .Item.To = Range("b6")
 .Item.Subject = Range("b7")
 .Item.Send
End With
End Sub

Gruß
Reinhard

#3

Hi,

ich hab Excel 2007.

Habs nun aber hinbekommen, dass hier ist die Lösung:

Sub Versand()
Range("A3:G19").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
 .Introduction = " "
 .Item.To = ActiveSheet.Range("F1")
 .Item.Subject = ActiveSheet.Range("A5")
 .Item.Send
MsgBox ("E-Mail versendet!")
 End With
End Sub

Grüße aus Karlsruhe