Variable definieren email öffnen
26.05.2018 18:29:35
Richard
möchte gerne eine email mit mehreren verschiedenen Anhängen versenden, habe mir einen Code zusammengebastelt aber funktioniert leider nicht gibt einen fehlercode unter Mail attachment..... Variable nicht definiert und es geht mir auch keine Msg Box auf
Im voraus schon mal vielen Dank für die Hilfe
Gruß Richard
Hier mein Code
Private Sub cmbemailsenden_Click()
On Error Resume Next
Dim empfänger As String
Dim Kopie As String
Dim Blindkopie As String
Dim aws As String
Dim olApp As Object
Dim fdopen As FileDialog
' strDatei = ThisWorkbook.Path & "\"
Blindkopie = txtbc.Text
Kopie = txtcc.Text
empfänger = txtemail.Text
' Betreff = TextBox3.Text
On Error Resume Next
Dim rng As Range
Set olApp = CreateObject("Outlook.Application") ' Erstellt eine Outlooksession
With olApp.CreateItem(0)
Set rng = Selection 'entsprechend anpassen
.To = empfänger ' Empfänger eintragen
.CC = Kopie ' CC Kopien eintragen
.BCC = Blindkopie ' BC Kopien eintragen
.Subject = txtBetreff.Text ' Betreff wird eingetragen
MsgBox ("Bitte datei auswählen.")
Set fdopen = Application.FileDialog(msoFileDialogOpen)
With fdopen
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.InitialFileName = "C:\Benutzer\"
.Title = "Bitte die zu sendenden Dateien auswählen!"
.ButtonName = "per email senden"
If .Show = True Then
Dim i As Integer
If .SelectedItems.Count > 0 Then
For i = 1 To .SelectedItems.Count
Mail attachments.Add.SelectedItems(i)
Next
End If
End If
End With
If CheckBox1.Value = True Then .ReadReceiptRequested = True ' Lesebestätigung anfordern
.Display ' zeigt die Email an
' If CheckBox2.Value = True Then SendKeys "%s", True 'sendet sofort die Mail
Set rng = Nothing ' gibt rng wieder frei
Set olApp = Nothing ' beendet die Outlooksession.
End With
Unload Me ' Schließt die Userform