Verzenden email via excel (vba) met Outlook onder Windows 10

Status
Niet open voor verdere reacties.
W

Weidevogel

Nieuwe gebruiker
Lid geworden
14 dec 2017
Berichten
3
ik wil een excelsheet dmv VBA via outlook versturen. In het Onderwerp van de mail wil ik de inhoud van cel B2 hebben (hierin staat een stukje tekst). Tot gisteren lukte dat prima dmv de regel:
Code: 
.Subject = Sheets("blad1").Range("b2")
Sinds vandaag is mijn laptop overgegaan naar Windows10 en nu blijft het veld Onderwerp leeg.
Wanneer ik in de code hierboven de verwijzing naar de cel vervang door gewoon tekst , dan werkt het wel !!
dus bv:
Code: 
.Subject = "Test"

Iemand een oplossing om de inhoud van de cel B2 toch weer in het veld Onderwerp te krijgen?
 
De vraag is natuurlijk of er iets in cel B2 staat, wij kunnen het niet controleren.

Doe eens.
Code: 
.Subject = Sheets("blad1").Range("b2")[COLOR=#0000ff].value[/COLOR]
 
Dank voor de reactie. Ik begrijp de opmerking , maar de cel B2 is wel degelijk gevuld met tekst. ((Formule).
De toevoeging .Value Veranderd helaas niets . Het veld Onderwerp blijft nog steeds leeg.
 
Waarom plaats je niet gewoon even je document?
Zo blijft het gissen.
 
Gaat om een excel met bedrijfsinfo. dus dat gaat helaas niet. Kan nog wel wat code toevoegen die volgens mij te maken heeft met het aanroepen en versturen via outlook.
Code: 
Dim OutApp As Object
Dim OutMail As Object
Dim mail As String
With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set Sourcewb = ActiveWorkbook

    'Copy the sheet to a new workbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook

    'Determine the Excel version and file extension/format
    With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 2000-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'You use Excel 2007-2010, we exit the sub when your answer is
            'NO in the security dialog that you only see  when you copy
            'an sheet from a xlsm file with macro's disabled.
            If Sourcewb.Name = .Name Then
                With Application
                    .ScreenUpdating = True
                    .EnableEvents = True
                End With
                MsgBox "Your answer is NO in the security dialog"
                Exit Sub
            Else
                Select Case Sourcewb.FileFormat
                'Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                 Case 52:
                     If .HasVBProject Then
                         FileExtStr = ".xlsm": FileFormatNum = 52
                     Else
                         FileExtStr = ".xlsx": FileFormatNum = 51
                     End If
                  'Case 56: FileExtStr = ".xls": FileFormatNum = 56
                'Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
        End If
    End With
 TempFilePath = Environ$("temp") & "\"
    TempFileName = "Intake formulier IS" & " " _
                 & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

kun je hier iets mee?
 
Nee, daar kan ik niets mee omdat het probleem niet (alleen) in de code zit.
En een kopie van dat document zonder vertrouwelijke info lijkt me geen enkel probleem.
Daarnaast heeft de code die je in #5 plaatste er helemaal niets mee van doen.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan