Email aus Excel heraus versenden
25.03.2021 13:06:12
Jaymerson
nach langem versuchen habe ich keine Lösung für mein Probelm gefunden - auch googel und die Suchfunktion bringen mich leider nicht weiter
Es soll in einer Excellist die MemberID per inputbox ausgewählt werden. Dieser Wert wird im Betreff benötigt. Für den Body der Email soll der Text aus der Liste genommen werden der in der selben Zeile steht wie die MemberID, lediglich 7 Spalten weiter rechts ist. Dieser zweite Teil funktioniert bei mir einfach nicht.
Sub Emails_schreiben()
Dim rngMemberID As Range
Dim intMailBody As Integer
Set rngMemberID = Application.InputBox("Bitte Member-ID auswählen", Type:=8)
Set intMailBody = Range(Rows.rngMemberID, 7)
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.SentonBehalfOfName = "alias mailbox"
.to = "empfänger"
.Subject = "Member ID: " & rngMemberID
.Body = "Bitte text eingeben: " & intMailBody.value & " Danke"
.Display
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing
End Sub
Anzeige