Thema Datum  Von Nutzer Rating
Antwort
Rot Mailerstellen
 10.12.2024 10:18:31 Brigitte
NotSolved
10.12.2024 23:49:41 Gast7777
NotSolved
11.12.2024 08:48:59 Volti
NotSolved
11.12.2024 09:13:58 Brigitte
NotSolved
11.12.2024 17:14:51 ralf_b
NotSolved
11.12.2024 18:42:11 Brigitte
NotSolved

Ansicht des Beitrags:
Von:
Brigitte		 Datum:
10.12.2024 10:18:31		 Views:
92		 Rating:
     
Antwort:
  Ja
Thema:
Mailerstellen

Hallo

Ich habe folgenden Code erstellt eine Datei lädt Sie ins Mail und schreibt das Mail vor, wenn die Mailadressen fix im Code hinterlegt sind funktioniert alles einwandfrei.

Nun sollte ich aber die Mailadressen variable gestalten damit nicht immer in den VBA Code eingegriffen werden muss und plötzlich funktioniert das nicht mehr.

Sub xxxx_senden()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
'Dim Cstr as String habe es auch schon mit
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "C:\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"

Application.ScreenUpdating = False
 
strDatei = ActiveWorkbook.FullName
 
        strbody = "<font face=Arial>Sehr geehrter Damen und Herren,</font><br><br>" & _
        "<font face=Arial>im Anhang finden Sie die aktuelle FO Liste."

With Mail
.GetInspector.Display
.To = Worksheets("Mail").Range("D26") ' wennn hier die Mailadresse fix hinterlegt wird funktioniert alles
'.To = CStr(Worksheets("Mail").Range("D26")) habe es auch schon so probiert
.Subject = "Aktuelle FO Liste_" & Format(Date, "DD.MM.YYYY") 'Betreff
.HTMLBody = strbody & "<br>" & .HTMLBody
.Attachments.Add strDatei

Sheet Name ist korrekt Range Zelle ist korrekt

Kann mir bitte wer sagen was hier im Code falsch ist

Schöne Grüße Brigitte

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mailerstellen
 10.12.2024 10:18:31 Brigitte
NotSolved
10.12.2024 23:49:41 Gast7777
NotSolved
11.12.2024 08:48:59 Volti
NotSolved
11.12.2024 09:13:58 Brigitte
NotSolved
11.12.2024 17:14:51 ralf_b
NotSolved
11.12.2024 18:42:11 Brigitte
NotSolved